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TITLE VAX 11/780 MICRO DIAGNOSTIC HARDCORE MONITOR 
.IDENT /V13.3/ 



COPYRIGHT (C) 1977.1984 

DIGITAL EQUIPMENT CORPORATION. MAYNARD. MASSACHUSETTS 01754 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NQtiCE. THIS SOFTWARE. OR ANY OTHER COPIES THEREOF. 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO OtIE WHO AGREES TO THESE LICENSE 
TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION iN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 



FACILITY: Micro Diagnostic Monitor 

FUNCTIONAL DESCRIPTION: 

This module controls the loading and execution of the Hardcore 
Test Stream. 

ENVIRONMENT: hicro Diagnostic Monitor 

AUTHOR: Donald W. Monroe. CREATION DATE: ll-Oct-1977 

MODIFIED BY: 

12.1 Don Monroe March 1981 
Added call to 'CHICKEY' function in console. 

13.0 Don Monroe April 1981 

Added routine to type file name and version. 

13.1 Don Monroe September 1981 

Moved single instruction routine from monitor to 
this module and added an ENABLE CONTROL C function 
call to the mon i tor . 

13.2 Dave Shut! December 1982 

Fixed problem where on M8233 {2K of WCS) uas installed the 
hardccre diagnostic would only test the first IK of the 2K 
modu I e . 

13.3 Dave Shu! I November 1984 

Change 4megabyte module callout from 72 to 74 
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54 .LIST MC.ME 

55 .NLIST MD.CND 

56 .MCALL EQUATE. CHKKEY 
57 

58 000000 EQUATE HARDCORE 

SBTTL "COHHON DEFINITIONS 
SBTTL " MNEUMONIC DEFINITIONS 



*t*i***t****it*****t*******t»*******<rtt*****t*********t** 



t*********t*><* 



FOLLOWING ARE COMMON DEFINITIONS OF MNEUMONICS USED BY ALL OF THE 
PROGRAMS THAT EXECUTE OUT OF THE LSI-11. 

SBTTL " GLOB'tL MACRO CALLS 



**)t<*«ii** 



THE FOLLOWING ".MCALL'S" ARE GLOBAL MACRO ASSIGNMENTS THESE MACRO'S ARE 
USED BY ALL 4 MONITORS. THE PARSER. AND THE DIRECTORY FILE. 

SOME OF THESE MACRO'S ARE DEFINED IN THE CONSOLE MACRO PACGAGE "STRMAC" 
THEREFORE. THAT MACRO FILE MUST BE MERGED WITH THIS MACRO FILE BEFORE 
ASSEMBLY. 

.MCALL T$INIT.T$WRIT.T$READ.F$0PEN.F$READ.L0ADCO.CONVERT.C0NAB0RT 
.MCALL LDCNSL.GETMDM.ENCTRLC 

.MCALL STARS. COMTAGS.OPENF I LE.READOVR.PE TURN. RESETS. ASSEMBLE 
.MCALL DONE. RDIDREG.SBCCLOCK.DONEM.F ILL. CALLFAILCHAIN.ICODDF 
.MCALL MES, TYPES. TYPED. TYPE. TYPEMOD.R I NGBELL.GETUPC.TYPESECTNO 
.MCALL TYPEERR.CALLMICMON.LOADWCS.STSCLOCK.LOADID.MTPS.MFPS.TYPEB 



SBTTL ■■ HARDCORE TEST STREAM MACRO CALLS 



*********** 



10000 
10000 
10000 



THE FOLLOWING MACRO CALLS ARE USED EXCLUSIVELY BY THE HARDCORE TEST 
STREAM. THEY ARE ONLY ASSEMBLED IF THE ARGUMENT TO THE "EQUATE" 
MACRO IS NON BLANK 

*«tt***t****it«****tt**t*t**t*t***«***tt**t**t*t****t**t«*t*t*«**«*** 

.MCALL NEWTST,$$NEWTST.NEW0VR.F0RCE0VR,INITIAL1ZE,MASK.HEXTST.DUMMY 

.MCALL L0OP,$$LO0P.ENDLOOP.ERL00P.IFERROR,CMPCA.CMPCAM.$$ERRL00P 

.MCALL NOOP.READVB.BLKMIC.CLOCK.TSTVB.LDIDREG.SKIP.SPAGEN.SSSKIP 

.MCALL $$$SK.TESTDAT.ENDDAT.CMPPCSV.$ENDDAT.HEX3.HEX33.M0VE 

-MCALL CMPCAD.CMPCMD. READ ID. CHKPMT, REPORT, FLTONE.FLTZRO.KMXGEN 

.MCALL LOADCA.ENDHC.$$ENDHC, FETCH. $$REPORT.VBUSG.$$FETCH 

.MCALL HEXl .HEXl 1 .HEX2 .HEX22 .HEX4 .HEX44 .HEX5.HEX55 .HEX6 .HEX66 

MCALL SETVEC.SUBTEST.RESETC.SETPSW.FILL.IDIR.TYPSIZE.SKIPERROR 
1 $TN=1 ; INIT THE TEST NUMBER FOR THE TEST STREAM 



1 $SN=1 ; INIT THE SECTION NUMBER FOR THE TEST STREAM 
ISECTOR^O ; INIT THE RELATIVE SECTOR NUMBER FOR 

• THE DIRECTORY OF THE TEST STREAM 



SBTiL ■• CMPCA AND CMPCAM MODE DEFINITIONS 



• «•«*• »t«t*«**l*t*<*t*'««*«*«ttt**«*<t*tt»t*«>tlr*tt*t*t>tttttltt«**tt*llt 
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FOLLOHING ARE THE TWO MODE DEFINITIONS FOR THE "CMPCA". "CMPCAD" . 
"CMPCAM". AND "CMPCMD" PSEUDO INSTRUCTIONS. 

IF MORE MODES ARE REQUIRED. THE BRANCH TABLE (IN THE HARDCORE MONITOR) 
WILL HAVE TO HAVE MORE ENTRYS PUT IN IT. 



t**tt**t*tt*t**ttt*ti,*i,t*t*iittt*t**t*tttt*****ttt**t*t*t* 



>*t*(*********t 



000000 EQ.= : BEQ 
000004 NE.= 4 ; 3NE 



SBTTL " SWITCH (SWR) REGISTER BIT DEFINITIONS 

+ 

FOLLOWING ARE THF OtPINITIONS OF THE 16 BITS OF THE SOFTWARE SWITCH 
REGISTER. BITS<5:0> ARE READ WRITE BY COMMAND FROM THE MICRO MONITOR. 
BITS 7 AND 6 ARE READ AND CLEAR ONLY FROM THE MICRO MONITOR. 



ALL OTHER BITS ARE TRANSPARENT TO THE OPERATOR. 

HALT ON ERROR DETECTION 
HALT ON ERROR ISOLATION 
LOOP ON ERROR 
NO ERROR REPORT 
BELL ON EVERY 6 ERRORS 
GO TO NEXT TEST AFTER ERROR 
LOOP ON SPECIAL SECTION 
LOOP ON SPECIAL TEST 
; HARDCORE SINGLE INSTRUCTION FLAG 
00 ; MA780 FLOPPY (MOUNTED) FLAG 
00 ; FLOPPY 2 (MOUNTED) FLAG 
00 : MS780-E FLOPPY (MOUNTED) FLAG 
000 : MASK FOR FLOPPY FIELD 
; CONTINUE FLAG 
0000 : KEYBOARD ILLEGAL CHARACTER 
0000 ; KEYBOARD ERROR FLAG 
000 ; CONTROL C FLAG 
00 ; COMMAND MODE FLAG 

SBTTL ■■ SWITCH REGISTER 1 (SWRl) BIT DEFINITIONS 

+ 

FOLLOWING ARE THE BIT DEFINITIONS OF SOFTWARE SWITCH REGISTER 1 (SWRl). 
THESE BITS ARE ALL TRANSPARENT TO FHE OPERATOR. 



000001 


HALTD-- 1 


000002 


HALTI: 2 


000004 


LOOP^ ^ 


OOOOIC 


NER= 10 


000020 


BELL= 20 


000040 


ERABT= 40 


OCOIQO 


LOSS= 100 


0002C0 


LOST: 200 


000400 


SINST= 40 


001000 


FLPY2^ 10 


002030 


FLPY3= 20 


003000 


FLPY4- 30 


003000 


FLPYMSK=3 


004000 


CONT: 400 


010000 


KEYQUE^ 1 


020COO 


KEYERR= 2 


040000 


CTRLC: 40 


100000 


COM: 1000 



tt*>»t*>tt*t!.**ttt*tt>tt*tttttt*tt«t*>ttt>*tt»t*t*«*tl*tl«|)«*tt 



> * t t * t t 



OOGOOl HARDC: 1 ; HARDCORE (EXECUTING) FLAG 
000002 RUNFLQ: 2 : DIAGNOSE COMMAND HAS BEEN USED 
00u004 B1FULL= 4 ; BUFFER 1 FULL FLAG. USED IN THE 

; DOUBLE BUFFFRED ROUTINE IN THE GO CHAIN 
000010 CLKFSTr 10 ; SET CLOCK FAST FLAo. SET OR CLEARED BY THE OPERATOR 
000020 CLKSLO= 20 ; SET CLOCK SLOW FLAG. 
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000040 

000100 

000200 

000400 

001000 

C02D0C 

004000 

010000 

020000 
U40O0O 



USED BY THE DOUBLE 
SET BY THE "DIRECTORY" 



B2INUSE=40 : BUFFER 2 IN USE FLAG. 
BUFFER ROUTINE IN THE GO CHAIN 

DIRERR= 100 ; DIREHTORY ERROR FLAG 
PROGRAM IF AN ERROR HAS DETECTED 

B2FULL= 200 : BUFFER 2 FULL FLAG. USED BY THE DOUBLE 
BUFFER ROUTINE IN THE GO CHAIN 

B1INUSE=400 ; BUFFER 1 IN USE FLAG. USED BY THE DOUBLE 
BUFFER ROUTINE IN THE GO CHAIN 

DICMD= 1000 ; DIAGNOSE COMMAND FLAG. SE^ WHEN A 
"DIAGNOSE" COMMAND IS USED 

MIC1FL= 2000 ; GO CHAIN FIL": t 1 FLAG. USED BY THE 
Di:?ECTORY SEARCH PROGRAM 

MIC2FL= 4000 ; GO CHAIN FILE t 2 FLAG. USED BY THE 
DIK'FCTORY "SEARCH PROGRAM. 

rPA= lOOCG ; FPA PRESENT FLAG. SET BY THE GO CHAI:J 
MONITOR OH TH: COMMAND PARSER. 

TSTSPAN=20000 ; A TEST SPAN HAS BEEN SPECIFIED 

SCTSPAN=40u00 ; A SECTION SPAN HAS BEEN SPECIFIED 



SBTTL " CONSOLE ADAPTER REGISTER DEFINITIONS 

+ 

THE FOLLOWING ARE THE ADDRESS ASSIGNMENTS AND THE BIT DEFINITIONS 
OF THE CONSOLE ADAPTER REGISTERS. 



• **>*t****t**'*t*t**t*********t«»****lt**t*tta*****t******t***«****>* 



173000 
173002 
173004 
173C06 
173010 
173012 
173014 
173016 
173020 
173022 
173024 
173026 
173030 
000200 
000100 
100000 
173032 
010000 
002000 
OOIOOO 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
1730'!4 



ROM0= 1 

R0M1= 1 

SPARE1= 

IDDATLO 

IDDATHI 

SPARE2= 

RXDNE^l 

TXRDYr 

TOIDLO= 

TOIDHI= 

FMIDLO= 

FMIDHI= 

IDCS= 1 

IDMAI 

IDWRI 

^DCYC 

CONMCR- 

INIT = 

MNTRT 

UPC12 

CLRUW 

SO!iM = 

CLKST 

FRl; 

FRO^ 

STS^ 

SBC = 

PROCE 

CONMCS= 



73000 ; 

73002 : 
173004 

=173006 

=173010 
173012 

73014 ; 

173016 
173020 
173022 
173024 
173026 

73030 ; 

NT=20t 

T£=100 

LEMOOOO 
173032 
10000 

N--2000 

=1000 ; 

RD=200 

100 ; 

PD=40 ; 

20 ; 

10 ; 

4 ; 

2 : 

ED = i ; 
173034 



ROM LOCATION 
ROM LOCATION 2 

; LOM 16 BITS OF ID DATA REGISTER 
; HIGH 16 BITS OF ID DATA REGISTER 

RECEIVER CONTROL AND STATUS REGISTER 
; TRANSMITTER CONTROL AND STATUS REGISTER 
LO 16 BITS OF TRANSMITTER DATA BUFFER 
HIGH 16 BITS OF TRANSMITTER DATA BUFFER 
LO 16 BITS OF RECEIVER DATA BUFFER 
. HIGH 16 BITS OF RECEIVER DATA BUFFER 
ID BUS CONTROL AND STATUS REGISTER 
ID MAINTENANCE BIT 
ID BUS WRITE BIT 
; ID BUS CYCLE BIT 
; MACHINE CONTROL REGISTER 
CPU INITIALIZE BIT 
MAINTENANCE RETURN ENABLE BIT 
FORCE UPC 12 BIT 
ROM NOP BIT 
STOP ON MICRO MATCH ENABLE BIT 
CLOCK STOPPED BIT 
CLOCK FREQUENCY SELECT BIT 1 
CLOCK FREQUENCY SELECT BIT 
NABLE SINGLE TIME STATE BIT 
NABLE SINGLE BUS CYCLE BIT 
CLOCK PROCEED BIT 
; MACHINE CONTROL AND STATUS REGISTER 
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010000 FLPYON=10000 

001000 CONCM=1000 

000400 CPURUN=400 

000200 CONACK=200 

000100 RDYIE=100 ; 

000040 DNEIE=40 ; 

173036 VBCTRL= 173036 

000200 CCPTO=200 ; 

000100 CCPTl^lOO ; 

000040 CCPT2=40 

000020 CCPT3=20 

000004 SLFTST:4 

000002 VBL0AD=2 

000001 VBCLK::! 



; FLOPPY ON BIT 

CONSOLE COMMAND MODE BIT 
CPU RUN BIT 

CONSOLE ACKNOWLEDGE BIT 
RECEIVER INTERRUPT ENABLE BIT 
TRANSMITTER INTERRUPT ENABLE 
: V BUS CONTROL REGISTER 
TIME STATE CPTO BIT 
TIME STATE CPTl BIT 
TIME STATE CPT2 BIT 



TIME STATE CPT2 

V BUS SELF TEST 

V BUS LOAD BIT 
V BUS CLOCK BIT 



BIT 
BIT 



SBTTL •■ ID BUS REGISTER DEFINITIONS 
FOLLOWING ARE THE MNEUMONICS ASSIGNED TO THE ID BUS REGISTERS. 



**tt*t***ll:**tt***«***|t*t******t*t*tt*ttt^>»*****<)t<**«*>** 



ttttttlt* 



000000 
000001 

000003 
000004 
000005 
000006 
000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 

000022 
000023 
000024 
000025 
000026 
000027 
000030 
0D0031 
000032 
000033 
1100034 
000035 
000036 

000040 
000041 
000042 



IBDAT= 00 
IBTOD= 01 

CON!D= 03 
CONRXS= 04 
CONRXD= 05 
CONTXS= 06 
CONTXD= 07 
RWDQ= 10 ; 
IBNIN= 11 
IBCLKS= 12 
IBICT= 13 
CES= 14 
VECT= 15 
SIR= 16 
PSL: 17 
TBDAT= 20 

TBERO^ 22 
TBERlr 23 
ACCO^ 24 ; 
ACC1= 25 ; 
ACCMNT= 26 
ACCST: 27 
SBISILOOO 
SBIERR= 31 
SBITO= 32 
SBIFLT= 33 
SBI5CM= 34 
SBIMAT= 35 
5BICP= 36 

USCSTK=40 
USCBRK-41 
USCADR:42 



IBUF 
TIME 



DATA 
OF DAY 



CLOCK 



SYSTEM ID 
CONSOLE RXCS 
CONSOLE RXDB 
CONSOLE TXCS 
CONSOLE TXDB 
WRITE Q REG. READ D REG 
NEXT INTERVAL REGISTER 
. CLOCK CONTROL AND STATUS 
IBUF INTERVAL COUNT 



; TBUF DATA 



TBUF ERROR REG 
TBUF ERROR REG 1 
ACCELERATOR REG 
ACCELERATOR REG 1 
; ACCELERATOR MAINTENANCE REG 
ACCELERATOR STATUS REGISTER 
: SBI SILO 
; SBI ERROR REG 
SBI TIMEOUT ADDRESS 
SBI FAULT/STATUS 
SBI SILO COMAPRATOR 
SBI MAINTENANCE 
SBI CACHE PARITY 

SEQUENCER MICRO STACK 
SEQUENCER MICRO BREAK 
SEQUENCER WCS ADDRESS 
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000043 



USCDAT=43 : SEQUENCER WCS DATA 



THE FOLLOWING REGISTERS ARE THE TEMPA AND TEMPB REGISTERS 



000044 
000045 
000046 

000050 
000051 
000052 
000053 
000054 
000055 
G00055 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 
000072 
000C73 
000074 
000075 
000076 



POBR3 44 
P1BR= 45 
SBR= 46 

KSP= 50 
ESP= 51 
SSP= 52 
USP= 53 
ISP= 54 
FPDA- 55 
D.SV= 56 
Q.SV- 57 
TEMPOr 60 
T£MP1= 61 
TEMP2= 62 
TEMP3= 63 
TEMP4= o4 
TEMP5= 65 
TEMP63 66 
TEMP7= 67 
■^EMP83 70 
TEriP9= 71 
PCBB- 72 
SCBB= 73 
POLR= 74 
P1LR= 75 
SLR- 76 



SBTTL •■ LSI-11 VECTOR DEFINITIONS 

+ 

THE FOLLOWING HNEUHONICS ARE THE DEFINITIONS FOR THE LSI-11 TRAP 
AND INTERRUPT VECTORS. 

00'J034 TRAPVEC-34 ; "TRAP" INSTRUCTION VECTOR 
U00300 TXVEC- 300 ; TRANSMITTER INTERRUPT VECTOR 
000304 RXVEC^ 304 ; RECEIVER INTERRUPT VECTOR 

SBTTL " MISCELLANEOUS DEFINITIONS 

+ 

FOLLOWING ARE SOME MISCELLANEOUS DEFINITIONS USED IN THE HARDCORE TESTS 

177777 IDREGL0:-1 ; USED AFTER A "READID" PSEUDO INSTRUCTION TO SPECIFY 

; THE CONTENTS OF LOCATION "IDDATLO" 

; AS THE ARGUMENT 
000001 IDREGHI^l ; USED AFTER A "RE/iOID" PSEUDO INSTRUCTION 

; TO SPECIFY THE CONTENTS OF LOCATION 

: "IDDATHI" AS THE ARGUMENT 
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" MISCELLANEOUS DEFINITIONS 

000034 TPCINIT=34 : FIRST ADDRESS (RELATIVE) OF EACH TEST 

STREAM OVERLAY. 

NOTE: IF THE LENGTH OF THE DISPATCH 

TABLE IS CHANGED. THIS DEFINITION 

MUST ALSO BE CHANGED. 
000004 iTSTPTR=4 ; FIRST ADDRESS (RELATIVE) OF THE TEST TABLE 

; IN EACH TEST STREAM OVERLAY. 

000010 RADOCT= 10 ; RADIX OCTAL CODE FOR CONSOLE CONVERT ROUTINE 

000020 RADHEX= 20 ; RADIX HEX CODE FOR CONSOLE CONVERT ROUTINE 



SBTTi. ■■ MODULE AND BUS .JAME ASSIGNMENTS 

+ 

THE FOLLOWING DEFINITIONS ARE USED BY THE "TYPMOD" ROUTINE IN THE 
MICRO DIAGNOSTIC MUNITOR. 

*ttttti(t********lttt****t**t**t******tl!tttt**t-ki[ttttttlttttt*t*t*tttt*t*t 



0-00000 


CIBr 





000001 


USC = 


1 


000002 


WCS = 


2 


000003 


PCS = 


3 


Ofi0004 


DAP = 


4 


0.0010 


DBP = 


10 


000005 


DCP = 


5 


000006 


DDP = 


6 


000007 


OEP = 


7 


000011 


CEH = 


11 


000012 


ICL = 


12 


000013 


CAM^ 


13 


000014 


CDM^ 


14 


000015 


TBM- 


15 


000016 


SBL = 


16 


000017 


SBH = 


17 


000020 


IRC = 


20 


000021 


IDP = 


21 


000022 


MSB = 


22 


000023 


HCN = 


23 


00 0024 


HDT = 


24 


000025 


,iAY = 


25 


000026 


CLK = 


26 


000027 


TRS^ 


27 


000030 


FNM: 


30 


000031 


FMH = 


31 


000032 


FML^ 


32 


P00033 


FAD = 


33 


00 0034 


FCT = 


34 


000035 


MAY^i 


= 35 


000036 


MPI: 


36 


000037 


MPC = 


37 


000040 


MPS = 


40 


000041 


MAT: 


41 


0000-1? 


WCS2K= 42 


0000/.. 


M5RE 


-- 43 


000044 


BYL: 


44 ; 



MAY WITH 16K CHIP 



; 2K WCS MODULE 

; MSB for MA780-E 

Lower contro I I er 



VAX 11/780 
MODULE AND 

000045 
000046 
000047 



MICRO 
BUS 



DIAGNOSTIC HAR MACRO 
HAME ASSIGNMENTS 
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BYU= 45 
MAY4: 46 
MAY8= 47 



Upper control I er 
; 1 Megabyte Array 
; 4 Megabyte Array 



000050 
000051 
OC0052 



000053 
000054 
000055 
000056 



START OF BUS NAMES 

CSBUS= 50 
IDBUS= 51 

veus= 52 

START OF ADAPTER NAMES 



UBA = 

MBAr 

DRA = 

CIAr 



53 
54 
55 
56 



THE FOLLOWING OFFSET DEFINITIONS ARE OFFSETS INTO THE RmD50 LIST FOR 
THE ABOVE MODULE NAMES. IF THE LIST IS CHANGED. THESE OFFSETS MUST BE 
CHANGED. THESE OFFSETS ARE USED BY THE TYPE MODULE ROUTINE IN ESKAR. 



0OU12O 


BUSOFF= 


C^BUS * 2 


00 052 


M4<0FFr 


MAY • 2 


000072 


M6K0FF= 


MAY6 * 2 


D0C114 


M64K0Fr 


MAY4 * 2 


000116 


M256K0^ 


MAYS * 2 


000126 


ADAOFF: 


UBA * 2 


!SBTVL 


" LSI -11 


REGISTER NAME ASSIGNMENTS 


000000 


R0= XO 




000001 


Rl= X\ 




000002 


R2= X2 




000003 


R3= X3 




000004 


RAz XA 




000005 


R5= XS 




000006 


R6= X6 




000007 


R7= X7 




000006 


SP= X6 




000007 


PC= 27 





SBTTL " FILE NAME CODES 

+ 

THE FOLLOWING COPES ARE USED BY THE "OPEN FILE" ROUTINE IN THE 
MICRO DIAGNOSTIC MONITOR. 

0O0C9O HCMONIT0R=0 ; HARDCORE MONITOR 

000002 TESTSTREAM=2 ; HARDCORE TEST STREAM 

0O00U4 G0CHINM0NIT0R=4 ; GO CHAIN MONITOR 

000006 GbCHAl-6 ; GO CHAIN FILE NUMBER 1 (FLOPPY 1) 

OCOOIO PARSER^IO ; MICRO DIAGNOSTIC PARSER 

009012 G0CHA2ri2 ; GO CHAIN FILE NUMBER 2 (FLOPPY 2) 
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000014 
000016 
000020 
000022 
00C024 
000026 
000030 
000032 



DIRECT0RYrl4 ; DIRECTORY SEARCH FILE 
FAILCHAINM0NIT0R = 16 ; FAIL CHAIN HCiUTOR 



FCHAn=20 ; FAIL CHAIN FILE NUMBER 
FCHAI2=22 : FAIL CHAIN FILE NUMBER 
MPG0CH::24 ; MA780 GO CHAIN 
MPFC=26 ; MA780 FAIL CHAIN 
MSGOCH=30 ; MS780-E GO CHAIN 
MSFC=32 ; MS780-E FAIL CHAIN 



(FLOPPY 
(FLOPPY 



1) 
2) 



SBTTL " CONSOLE ROUTINE ERROR CODES AND DEFINITIONS 

+ 

THE FOLLOWING ARE ERROR CODE DEFINITIONS AND EMT DEFINITIONS DEFINED 
BY MIKE HARE THAT ARE USED TO COMMUNICATE WITH THE CONSOLE ROUTINES- 



**t*t*«**t****«>tt*t*****«*it*tt**«t*******t*t**»t**t****«*tt*i*t*«**» 



oooooc 
ooooo 

00000 

ooooo 
ooooo 
ooooo 
ooooo 
ooooo 



ooooo 
ooooo 
ooooo 

U 

ooooo 
ooooo 

DOOOO 
00009 
00001 
GOOOl 
00001 
00001 
COOOl 
00001 
00001 
00001 
00002 
00CJ2 
0JOC2 
00 002 
00002 



FLOPP 

1 

2 

3 

4 

5 

6 

7 

USER 

THESE 



1 

2 

3 
4 
5 
6 

7 



iCODDF 

Y AND TERMINAL 



er: r codes 



$FER=1 
.-FNF=2 
$FNR=3 
$F0Rr4 
$TBSY35 
$TCTC=6 
$TER37 
SERVICE 
CODES MUSi 
TINIT=0 
TWRITE^l 
TRtAD-2 
0PENFL=3 
READSC:4 
WRIT5C=5 
L0ADCN:6 
CKVERT=7 
RADGETrlO 

ofnflimi 
ty:ji=12 

TYf2 = 13 

lCANWC=i4 

RMWRON^IS 

LCWR0N=16 

TMERTR317 

R$SETr20 

LDCONS-21 

MDMTYP=22 

CHKSWI =23 

TSTMFG^24 



LEGAL RANGE 



FLOPPY HARDWARE ERROR 
FILE NOT FOUND 
FLOPPY QUEUE FULL 
FLOPPY SECTOR t OUT OF 
;N0 NODE FOR REQUEST 
;CONTROL-C INPUTTED 
.■TERMINAL HARDWARE DETECTED ERROR 
EMT CODE DEFINITIONS 

BE IN SYNC WITH THE EMT SERVICE 



MODULE 



N 1 
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■ CONSOLE ROUTINE ERROR CODES AND DEFINITIONS 

60 000000 .BLKB 6370 
62 0063/0 COHTAGS 
.SBTTL "GLOBAL TAGS 



It*t***ii**ttt*t**tt*tt*t*tt1ttt1:t*t*****1,***t*tttt******t*t1it 



t*t*t***t* 



THE FOLLOWING 128 BYTES ARE THE GLOBAL TAGS USED BY ALL THE MONITORS 



THESE TAGS 
AND AT THE 
TAGS. 



MUST BE LOCATED AT THE END 
BEGINNING OF ALL THE OTHER 



OF THE MICRO DIAGNOSTIC MONITOR 
MOHIT0R5 OR FILES THAT USE THESE 



ONCE THE MICRO DIAGNOSTIC 
NEVER OVERLAYEb. 



MONITOR IS LOADED INTO MEMORY, THESE TAGS ARE 



THESE TAGS MUST BE EXACHLY 128 BYTES IN LENGTH. 



006370 
006372 
006374 
006376 
006400 
006402 
006404 
006406 

006410 
006412 
006414 
006476 
006420 
006422 
006424 
006426 
006430 
006432 
06434 
006436 
006440 
006442 
006444 
Of^64~16 
Oi6450 
006452 
0645^, 
00')456 
00'<4:U 
0C6462 
0C6464 
006466 
006470 
006472 
0C64 75 
0D6476 
C06502 
106.^10 
006516 



*********ttt*ttt*t*t*t**t.it*t*t*it*t*ttttttt*tt*****tt*tt**ttt*iit*tttt*t 



000000 
000000 

onoooo 

000000 
000000 
000000 
OOOOOi 
000000 

; IN THE 
000000 

oooooo 

000000 

oooooo 
oooooo 

OOOOOu 

oooooo 

000002 

oooooo 
oooooo 

020400' 

n p 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

090000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

OOOODO 
02 
000 

COMSPC 
M5GA: 
MSGB: 



$PASS: 

tTSTNh: 

ENDSPAN: 

TESINO 

SUBTST 

ISCTNO 

SECTNO 

SERFLG 

CURRENT 

$LPADR 

$LPE.'^R 

SERRPC 

bOODDAT: 

.WORD 
BADDAY : 

.WOftC 
Sl«R: .WORD 2 
SWRl: .WOHD 
TPC: .WORD 



.WORD i 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORD 
.WORD 
TEST 
.WORD 
.WORD 
.WORD 
.WORD 



CONTAINS THE CURRENT PASS COUNT 
CONTAINS THE CURRENT TEST NUMBER 
ENDING TEST OR SECTION NUMBER OF SPAN 
CONTAINS THE TEST NUMBER FOR LOST 

CONTAINS THE CURRENT SUBTEST NUMBER 
CONTAINS THE CURPENl SECTION NUMBER 
CONTAINS THE SECTION NUMBER FOR LOSS 
IS NON ZERO IF AN ERROR HAS BEEN DETECTED 



CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 



THE LOCP ADDRESS 

THE ERROR LOOP ADDRESS 

THE PC OF THE ERROR CALL 

THE GOOD DATA OF A TEST 



.WORU ; CONTAINS THE BAD DATA OF A TEST 

; CONTAINS THE U : F^tKT VALUE OF THE FLAGS 



RELOC: 
FILPTR 
OVRAbR 
OVRBVT 
TYPADR 
MODADR 
SRLADR 
WCSADR 
WCSCNT 
STSNO 
IPDAT 
IDADR 
RDIDLC 
RDImHI 
GOYUPC 
015 



.WORD E 

-wopn 

.WORD 
.WORD 
.WORD 
.S-:CRD 
.ilORD 
.WORD 
.WORD 

.WORD 

.WORD 

.WORD 
.WORD 
.WORD 
.WORD 



TEST PC FOR HARDCORE TESTS 
ND ; Ef^D ADDRESS OF HARDCO.^E 
: INDEX FOR RAD50 FILE MA IE 
START ADR FOR READ OVER ^Y 



BYTE COUNT 
ADDRESS OF 



FOR READ 
DATA FOR 



/K 
TYPE 



CALLS 



$C' 



ADR OF MODULE STRING 

ADR FG DATA FOR LOAD WCS 

AC 0!^ WCS FOR LOAD WCS 

WORD COUNT FOR LOAD WCS 
STS COUNT 

DATA POINTER FOR LOAD ID 
ADDRESS OF ID REG 

LG 16 BITS OF READ ID DATA 

HI 16 BITS 

RECEIVED UPC FOR GETUPC 
IT: .BYTE 2,15.12,0 ; ASCII FOR A 'CRLF' 



: MES <, >,NB 
MES <CATA: >,NB 
tirS <TRACE: >,NB 
MES <;KEYPnAkD ERROR; 



>,NP 



VAX n/780 MICRO 
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006534 
006542 
006544 
006546 
006550 
006552 



906554 
006556 
006560 



005562 
006564 



SIXSPC 
000000 
000000 
000001 
000000 
000000 



: MES < > 
KEYCODEt.HORD 
$PSW: .WORD 



PASCNT: .WORD 1 ; USER SET PASS COUNT 
FPYVEC: .WORD : FLOPPY INTERRUPT VECTOR 
LOSLNK: .WORD ; THIS LOCATION IS DEFINED 

DIAGNOSTIC MONITOR TO BE THE ADDRESS 

OF THE MICRO DIAGNOSTIC MONITOR LOCAL 

DIRECTORY" 



IN THE MICRO 



THE MICRO ADDRESS 



TAGS. IT IS USED BY THE 
PROGRAM. 
000000 LOSSEC: .WORD D 
000000 SECTOR: .WORD 
OOOOOC FPSYNC: .WORD 
THAT WAS SPECIFIED IF A 
COMMAND HAS BEEN ISSUED 
GO CHAIN MONITOR TO SET 
AT EACH NEWTST STATEMENT 
;0000 TERMINT:.W0RD 
000000 MODLNK: .WORD ; THIS LOCATION IS LOADED BY THE 
: HARDCORE MONITOR AND THE FAILCHAIN MONITOR 
: TO POINT AT THE RAD50 LIST OF MODULE NAMES 



: THIS WORD CONTAINS 
"SET FP" COMMAND 
. IT IS USED BY THE 
THE SYNC POINT 



C 2 
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"GLOBAL TAGS 

63 

64 Oa6570' HEAD:. 

65 006570 000000 .WORD : THE BYTE COUNT OF THIS FILE IS PLACED HERE 

66 : BT THE LINKER 

67 006572 000167 002202 JHP HARDCO ; LINKAGE FROM THE HICPO DIAGNOSTIC MONITOR 
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69 

70 
71 
72 
73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

12e 



.SBTTL "HARDCORE MONITOR COMMON TAGS 

FDLLOMING ARE THE 512 BYTES (4 SECTORS) OF LOCAL VARIABLES FOR THIS 
PROGRAM. THESE VARU^BLES MUST ALWAYS START AT RELATIVE ADDRESS AND 
MUST BE EXACTLY 5.2 BYTES LONG. 



••••**»«««»»*t»«i««t«»««««t»«»«««t*«tt««»*««»»««««««t»t»t»t««« 



«**tt*** 



06576 
0660P 
066C2 
06604 
06606 
06610 
06612 
06614 
06616 
06620 
06622 

06624 
06634 
06644 

06654 
06656 
06660 
06662 
06664 
06666 
06670 
06672 
06674 
06676 
06700 



006702 



3< 704 
0-706 
0o710 
C5' 12 
C6714 
06716 
06720 
06722 



006724 



06726 

06750 
06776 
07022 
07046 



000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

006624' 

006634- 

006644' 

IINDX 
JINDX 
KINDX 



OGOOOO 
000000 
000000 
000000 
000000 
000000 
OOOOOG 
OOOtOO 
000000 
000001 
OOOOOG 

; NEWT5T 
000160 

; LONGEST 
000000 
000000 
OOCOOO 

000000 
177777 
177777 
000000 



TSTPTR: .WORD 

$TMPO: .WORD 

$ITEMB: .WORD 

LOADAD: .UORD 

$FLAG: .UORD 

LPICNT: .WORD 
-WORD ; J COUNTER 
.WORD ; K COUNTER 

LOOPTBL:.WORD IINDX ; 
.UORD JINDX ; PTR TO 
.HORD KINDX ; PTR TO 



INDEX INTO TEST TABLE 
TEMPORARY STORAGE 

NOT USED 

LOAD ADDRESS OF THIS OVERLAY 
USED BY FETCH ROUTINE 

LOOP COUNT OF THE CURRENT TEST 



PTR TO I INDEX TABLE 
J INDEX TABLE 
K INDEX TABLE 



.BLKM 4 
.BLKH 4 
.BLKW 4 



I INDEX TABLE 
J INDEX TABLE 
K INDEX TABLE 



ARGl: .WORD 
ARG2: .WORP 
ARG3: .WORD 
ARG4: .UORD 
ARG5: .UORD 
ARG6: .UORD 
STADR: .UORD 
ENDADR: .WORD 
MSKFLG: .WORD 
DBLFLG: .WORD 
LOSTAD; .WORD 
STATEMENT 
MAXCNT: .WORD 160 

CHANNEL 
SCHKFLG: .mop: 
ERRCJN: .WORD 
DATTYPE: .KORD 
WCSSIZE: .WORD 
ZERO: .W0F:> u ; 
SIZEFLG: .WORD -1 
SPANFLAG:.WORD -1 
KEYBUF: .WORD 



ARGUMENT 1 OF CURRENT OP CODE 



ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 



"WOSPC: MES 



PHYSICAL START ADDRESS OF THE TEST STREAM 
CONTAINS THE LAST ADDRESS*2 OF THE CURRENT OVERLAY 
FLAG FOR THE "CMPCAH" ROUTINE 
FLAG FOR THE "CMPCA" AND "CMPCAM" ROUTINES 
USED TO SAVE THE ADDRESS OF THE LAST 

; TOTAL NUMBER OF V CUS BITS iN THE 

SET BY THE TEST V BUS ROUTINE 
USED TO SAVE TPC OF INST FOLLOW IFERROR 
IF NON ZERO. INDICATES 32 BIT DATA FOR TYPEOUT 
CONTA'NS NUMBER OF WCS MODULES 
ZERO WORD FOR TYPEOUT 
; TYPEOUT FLAG FOR "TYPESIZE" ROUTINE 



ASCII STRING FOR TWD SPACES 



MSGl: 
MSG2: 
MSG3: 

MSG4: 
HSG24 



MES 
MES 
MES 

MES 



<N0. CF IK BAwf ,1 OF WCS - >.NB 
<'UNEXPECTED TRAP TO 4...TPC= 
<MLL WCS CONF - DATA REG^ > 

<?UNEXPECTED IMTRPT. . .f ^C^ > 



>.NB 



MtS 



'PC-- 



,NB 
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129 
130 
131 
132 
133 
134 
135 
136 
137 
130 
139 
140 
141 
142 
143 
144 
145 
146 
147 
14G 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
UO 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
131 
182 
183 
184 
185 



.SBTTL "THE DISPATCH TABLE TO THE EXECUTE SUBROUTINES 




00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

on 

0(1 
OCl 
00 
00 
00 
CO 





07060 

7060 

7062 

7064 

7066 

7070 

7072 

7C74 

7076 

71O0 

7102 

7104 

7106 

7110 

7112 

7114 

7116 

7120 

7122 

7124 

7126 

7130 

7132 

7134 

7136 

7140 

7142 

7144 

7146 

7150 

7152 

7154 

7156 

7160 

7162 

07164 

00042 



TBLHEAD = . 
015016' DISPAT: $N0 
SNEHTST 



014506" 

014046' 

012604 

013030' 

013324' 

012042' 

012036' 

; MASKEJ 
015160' 
011464' 
015164' 
012010' 
015414' 
013730' 
012702' 
015220' 
011656' 
015032' 
015020' 
013174' 
013246 
012434 
012534 
013654' 
015716' 
013040- 
015174' 
013552' 
014370- 
013604' 
015332' 
01442C ■ 
01526; ■ 
01523d ■ 



$LOOP 
$ENCLOP 
SERRLOP 
$IFERR 

$cnpcA 

SCPCAH 

$RESET 

SBLKMIC 

SSETPSW 

SCLOCK 

STSTVB 

ILDIDRE 

SENDQVR 

$SKIP 

SCHKPNT 

SREPORT 

$READID 

SFLTONE 

$FLTZRG 

$CriPPCS 

SENDHC 

$LDCA 

STYPSIZE 

$FETCH 

SSETVEC 

$INIT 

$MAS!C 

$KMXGEN 

SSUBTEST 

SHOVE 

$SfAGEN 

SSKIPERROR 



CP : NO OPERATION 

: START A NEW TEST 

SETUP A LOOP 

; END \ LOOP 

; SET THE ERROR LOOP TFC 
CHECK THE ERROR FLAG 
COMPARE CONSOLE ADAPTER REGlSTf^R 
COMPARE CONSOLE ADAPTER REGISTER 



(16 BITS) 
(16 BITS) 



IBLEND -- 
1BLSIZ r 



EXECUTE AN LSI-11 RESET 
; LOAD A BLOCK OF MICRO INSTRUCTIONS 
; SET THE PSW 
STEP THE CPU CLOCK 
TEST "HE V BUS 
: LOAD AN ID BUS REGISTER 
: END THIS OVERLAY 
SKIP SOME INSTRUCTIONS 

CHECK THE V BUS ERROR FLAG 
TYPE THE FAILING MODULES 
READ AN ID BUS REGISTER 
GENERATE A FLOATING ONE PATTERN 
GENERATE A FLOATING ZERO PATTERN 
COMPARE THE UPC SAVE REGISTER 
END THE HARDCORE TEST STREAM 
LOAD A CONSOLE ADAPTER REGISTER 
; TYPE THE SIZE OF THE WCS 
FETCH A MICRO INSTRUCTION 
: SET ftN LSI-11 TRAP VECTOR 
INITIALIZE THE CPU 
MAS< SOME DATA 

; GENERATE A KMX FIELD OF A MICRO WORD 
: INCREMENT THE SUBTEST NUMBEP 
HCVE SRC TO DST 

; GENERA-^t A SPA ADDR FIELD OF A MICRO WORD 
SKIP IF ERROR FLAG SET 



<TBLFND - TBLi:EAD>/2 



C07164 



C 



jC 



07344 
00754 
00024 
7344 



VBEUFF: .BLKB 160 ; BUFFER FOR THE V BUS BITS 



).^Y-W 

; -lono-x 
f:ll z 



THE FOILOWING LIST OF MODULE NAMES (IN ASCII FORMAT) IS USED FE THE 
"TYPE ERROR' ROUTINE. THE MODULE NAME MUST BE EXACTLY 7 CH/RACTERS LONG 
SINCE "HIS LIST IS INDEXED TO PICKUP THE APPROPRIATE NAME. 



0G7370 MO[ULES:MES <3o>,NB 
007372 mS <35>,NB ; USC 
037374 M£S <33>,NB ; WCS 



GIB 
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186 007376 


HES 


<34>.NB 


• PCS 


187 007400 


MES 


<29>.NB 


• DAP 


188 007402 


MES 


<28>.NB 


■ DCP 


189 007404 


MES 


<27^,NB 


• DDP 


190 007406 


MES 


<26>.NB 


• DEP 


191 007410 


HES 


<25>.NB 


' DBP 


192 007412 


MES 


<30>.NB 


• CEH 


193 007414 


MES 


<31>.NB 


• ICL 


194 007416 


MES 


<20>.NB 


• CAM 


195 007420 


MES 


<21>.NB 


CDM 


196 007422 


MES 


<22>.NB 


TBM 


197 007424 


MES 


<"i8>.NB 


SBL 


198 007426 


MES 


<19>.NB 


> SBH 


199 007430 


MES 


<24>.NB 


• IRC 


200 007432 


MES 


<23>.NB 


> IDP 


201 007434 


MES 


<14>.NB 


• MSB 


202 007436 


MES 


<13>.NB 


• MCN 


203 007440 


MES 


<12>..NB 


• MDT 


204 107442 


MAY4K 


;: MES <11>,NB : MAY 


205 1107444 


MES 


<32>.NB 


CLK 


206 007446 


MES 


<37>.KB 


■ TRS 


207 007450 


MES 


<85>.N3 


■ FNM 


208 037452 


MES 


<86>.NLi 


• FMH 


209 007454 


MES 


<87>.NB 


FML 


210 007456 


MES 


<88>.NB 


• FAD 


211 007460 


MES 


<89>.NB 


• FCT 


212 007462 


MAY16K: MES <10>.NB ; MAY 16K CHIP 


213 007464 


MES 


<58> 


r-Pi 


214 007466 


MES 


<59> 


• fPC 


215 007470 


MES 


<61> 


MPS 


216 007472 


MEi^ 


60> 


MAT 


217 007474 


MES 


<38> 


WCS 2K 


218 






21? 007476 


MES 


<76> 


MSB FOR MS780-E 


220 007500 


MES 


<75> 


B'^ LOWER 


221 007502 


MES 


<75> 


■ BV UPPER 


222 007504 


MES 


<73> 


■ 1 MEGABYTE ARRAY 


223 0075D6 


MES 


<74> 


4 MEGABYTE ARRAY 


224 :♦ 






225 ; THE 


FOLLOWING LIST ARE THE BUS NAMES THAT ARE USED IN THE 'TYPE ERROR 


226 : ROUTINE. 


THEY. LIKE THE MODULE NAMES. MUST BE 2 BYTES LONG. (THE MES 


227 : MACRO WILL CAUSE THIS TO HAPPEN). 


228 ;- 






229 






230 007510 


BUSES 


.: MES <C5>.NB 


231 007512 


MES 


<ID>.NB 


232 007514 


MES 


<VB>,NB 


233 007516 


ADAP1 


': MES <UBA> 


234 00752^ 


MES 


<MBA> 


235 
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237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 



.SBTTL "HARDORE MONITOR SUBROUTINEb 



t***t****t****«**« .«*<*t«tt tt*«****tt******>*«**t*t< 



**•***«>**»****»* 



THE FOLLOWING SUBROUTINES ARE USED EXCLUSIVELY BY THIS PROGRAM. 



**<*i**tttt**t****>**<*«*«t«**tttt(*t>t*i>*t*tt*t*****«*«*** 



tt*t****t* 



.SBTTL •■ TYPE ERROR DATA SUBROUTINE 

a 
■•■ 

THIS SUBROUTINE TYPES THE CONTENTS OF "GOODDAT" AND 
"BADDAT" IN EITHER 16 OR 32 BIT FORMAT DEPENDING ON 
THE CONTENTS OF "DATTYPE". 



*****t**** 



t**«***«t* 



007526 TYPDAT: TYPE IMSGA ; TYPE THE DATA IDENTIFIER 

007544 005767 177140 TST DATTYPE ; 32 BIT FORMAT? 

007550 001440 BEQ 1$ ; BRANCH IF NO 

007552 TYPED fGOODDAT.HEX ; 

007572 TYPE #$CRLF.ASCII : 

007612 TYPE fSIXSPC ; TYPE SIX SPACES 

007630 TYPED #BADDAT.HEX ; 

007650 000437 BR 2$ 

007652 1$: TYPES *GO0DDAT,HEX ; 

007672 TYPE *$CRLF.ASCII ; 

007712 TYPE fSIXSPC ; 

007730 TYPES fBADDAT.HEX ; 

007750 2$: TYPE #$CRLF.ASCII ; 

007770 TYPE fSIXSPC ; TYPE SIX SPACES 

010006 005767 176576 TST LPICNT ; IS LOOP COUNT BEING USED? 

01D012 001427 BEQ 3$ ; BRANCH IF NO 

010014 TYPES #LP1CNT.HEX ; TYPE THE LOOP COUNT OF THE TEST 

010034 TYPE f$CRLF. ASCII 

010054 TYPE fSIXSPC 

010072 005767 176514 3$: TST LP1CNT*2 r IS LOOP COUNT BEING USED? 

010076 001427 BEQ 4$ ; BRANCH IF NO 

010100 TYPES JLP1CNT*2.HEX 

010120 TYPE #$CRLF. ASCII 

010140 TYPE fSIXSPC 

010156 005767 176432 4$: TST LP1CNT»4 ; IS LOOP COUNT BEING USED' 

010162 001410 BEQ 5$ ; Br^ANCH IF NO 

010164 TYPES #LP1CNT»4,HEX 

010204 5$: TYPE #$CRLF.ASCII ; 

010224 TYPE #MSGB ; T.'PE "TRACE: 

010242 RETURN 



SBTTL ■ READ V BUS SUBROUTINE 

.t*ttttt*ttt«ttt«ti«ttat«tt*t*ttt«tt**tt*ttttt*t*«*«tt*t**t«*** 

* 

THIS ROUTINE READS THE V BUS INTO A BUFFER STARTING AT 
LOCATION "VBBUFF-. IF THE NUMBER OF BITS TO READ IS NOT 
SPECIFIED. THE ENTIRE BUS IS READ. 



1 * t * S t 
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294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
14C 
341 
342 
343 
344 
345 
346 
347 
3-10 
349 



LOAD THE V BUS 



010244 052737 000002 173036 $READVB:BIS #VBLOAD.a#VBCTRL 

010252 042737 000002 173036 BIC JVBLOAD .a*VBCTRL : ... 

010260 016700 176416 MOV hAXCNT.RO ; READ THE MHOLE BUS 

010264 012701 007164' MOV fVBBUFF .Rl .- GET THE ADDRESS OF THE BUFFER 

010270 066701 176310 ADD LOADAD.Rl ; ADD RELOCATION FACTOR 

010274 113721 173037 2$: HOVB a#VBCTRL*l . (Rl ) ♦ ; LOAD THE BUFFER 

010300 052737 000001 173036 BIS fVBCLK .a#VBCTRL .- SHIFT THE BUS 

010306 005300 DEC RO : DECREMENT THE LOOP COUNT 

010310 001371 B''E 2$ ; CONTINUE 

010312 RETURN 



.SBTTL ■ EXPECTED TRAP ROUTINE 
,t<*t»*>*tt<****t*************«tt*t*<*<*t*<'**t*t**t*«t*t«tt><t*>****ttt*t 

THIS IS THE EXPECTED TRAP ROUTINE. IT IS USED BY THE TEST THAT 
CHECKS FOR A Q BUS TIMEOUT FOR CERTAIN CONSOLE ADAPTER REGISTER 
ADDRESSES. 

A "SCTVec N- PSEUDO INSTRUCTION MUST HAVE BEEN EXECUTED PRIOR TO 
EXPECTING THE TRAP. THIS ROUTINE CLEARS THE ERROR FLAGS AND RETURNS. 



.*«*»**««««»tt*«*tt «»««♦•» (««««t««t«t«t»tt««««««*»t«t««t«««»t« 



010314 005067 176066 TRAP: CLR $ERFLG ; CLEAR THE ERROR FLAG 
010320 022626 CMP :SP)*.(SP)* ; ClEAN UP THE STACK 
010322 RETURN ; RETURN TO NEXT PSEUDO INSTRUCTION 



«**t«t**Kftt 



.SBTTL ■• UNEXPECTED TRAP ROUTINE 



*t***<*t>tt>t**t*t*>«***«t**t**t*t*t*t*t*i*«**«**t*t**««**t***t 



it«**t**« 



THIS IS THE UNEXPECTED TRAP ROUITNE. 

IT IS USED BY THE TEST OF THE CONSOLE ADAPTER REGISTER ADDRESS SPACE. 
THE NEWTST" OR "SUBTEST" PSEUDO INSTRUCTIONS SET LOCATION 4 TO POINT 
AT THIS ROUTINE. THIS ROUTINE SETS THE ERROR FLAGS AND GOES TO THE 
"IFERROr^" ROUTINE WHERE THE ERROR REPORT IS MADE. 



***t***«*t*t* 



010 
010 
010 
010 
010 
010 
OiO 
OIC 
010 
010 
010 



324 CATCH: TYPE #$CRL (^ .ASCI I 

344 TYPE #MSG2 ; TYPE UNEXPECTED TRAP MESSAGE 

362 016767 176044 176210 CATEX : MOV TPC.$TMPO 

370 166767 176040 176202 SUB RELOC.STMPO 

376 TYPES «$TMPO 

416 TYPE #$CRLF. ASCII 

436 022626 CMP (5P)*,{SP)* ; CLEANUP THE STACK 

440 012767 000-101 175740 MOV »401,$ERFLG ; SET THE ERROR FLAG 

446 012767 177777 176202 MOV «-l,ARG2 

454 016767 175752 176224 MOV TPC.ERRCON 

462 00C167 002764 JMP E2ERR ; GO TO IFERROR ROUTINE 

.SBTTL UNEXPECTED INTERRUPT ROUTINE 

THIS IS The UNEXPECTED INTERKUPT ROUTINE. 

THIS ROUTINE IS UJED TO CATCH UNEXPECTED INTERRUPTS FROM THE CONSOLE 



I 2 
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ADAPTER. IT IS USED IN THE TEST THAT CHECKS THE READY AND DONE INTERRUPTS 
IN THE CONSOLE ADAPTER. THE "NEHTST AND "SUBTEST" PSEUDO INSTRUCTIONS 
SET THE INTERRUPT VECTORS TO POINT AT THIS ROUTINE. IT TYPES A 
MESSAGE AND TRANSFERS TO THE UNEXPECTED TRAP ROUTINE. 



t**t*tt<ttt*t>«>t**>>*«><*>*t<<**«^t*t*it«»*«ttiit>tt*t>*tt*«*<tt 



* * < . ( 1 1 



.SBTTL ■ TYPE PROGRAM NAME AND VERSION 



tt«*t«***t*« 



THIS ROUTINE TYPES THE PROGRAM NAME AND VERSION. THE FIRST SECTOR OF 
THE FILE MUST BE IN MEMORY STARTING AT THE ADDRESS POINTED TO BY 
THE CONTENTS OF "RELOC" . 



351 
352 
353 
354 
355 
356 
357 

358 010466 CATCHI: TYPE #$CRLF. ASCII 

359 010506 TYPE #MSG4 

360 010524 000716 BR CATEX 
361 
362 
363 
364 
365 
366 
367 
368 
369 

370 .******«*««««»»«»««*««««t««*«it«t«»»««»t»t««»«»»t«ttt«t*t»«t»i«»t*«««»« 

371 010526 010046 TYPVER: MOV RO.-(SP) ; SAVE RO 

372 010530 016700 175700 MOV RELOC. RO ; GET POINTER TO ASCIC NAME AND VERSION 

373 010534 166700 176044 SUB LOADAD.RG ; DISCARD LOAD ADDRESS 
37^ 010540 TYPE RO. ASCII ; TYPE THE FILE NAME AND VERSION 

375 01055o TYPE >$CRLF. ASCII : 

376 010576 0126C0 MOV (SP)*.RO 

377 010600 000207 RTS PC ; EXIT 
378 

379 
380 
381 
332 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 

405 010602 

406 010602 

407 010610 



.S3ni ■• SINGLE INSTRUCTION THE HARDCORE ROUTINE 

THIS ROUTINE REQUIRES THE FOLLOWING GLOBAL VARIABLES: 

"TPC" - CONTAINS THE RELOCATED VALUE OF THE HARDCORE TEST PC. 
■RELOC" - CONTAINS THE PHYSICAL START ADDRESS OF THE HARDCORE 
TEST STREAM BUFFER. 

THIS ROUTINE TYPES THE CURRENT VALUE OF THE NON-RELOCATED TEST PC (TPC). 
IT THEN ISSUES A READ REQUEST TO THE KEYBOARD FOR ONE CHARACTER. 
WHEN THE OPERATOR TYPES A CHARACTER. IT IS CHECKED TO SEE IF IT HAS A 

"SPACE (ASCII 40)". IF A SPACE IS TYPED, A CARRIAGE RETURN LINE FEED 
IS TYPED AND EXECUTION IS RETURNED TO THE CALLING SEQUENCE. 

IF ANY OTHER CHARACTER WAS TYPED. A CARRIAGE RETURN LINE FEED IS TYPED. 
THE SINGLE INSTRUCTION FLAG IS CLEARED. AND THE MICRO MONITOR SUBROUTINE 

IS CALLED. 

THIS ROUTINE IS USED TO SINGLE INSTRUCTION 

THE HARDCORE TEST STREAM. IT REQUIRES THAT THE "SINGLE INSTRUCTION' 

FLAG IS SET. 



SGLINST: 
MFP5 $P5W 
MTP3 #0 



; SAVE THE PSW 
SET PSW AT ZERO 



VAX 11/780 MICRO DIAGNOSTIC HAR MACRO Y05.02 
■• SINGLE INSTRUCTION THE HARDCORE ROUTINE 



Sunday 18-Nov-84 



J 2 
17:08 



Page 9-3 



408 
409 
410 
411 
412 
413 
417 
418 
422 

42-' 
425 
426 
427 
428 
429 
430 
431 



010616 
010636 
010654 
010662 
010670 
010710 
010726 
010730 
010744 
010752 
010754 
010762 
010764 
010766 
010770 
010776 



TYPE #$CRLF.ASCII 

TYPE «HSG24 
016767 175552 175716 MOV TPC.STMPO ; 
166767 175546 175710 SUB RELOC.STMPO 

TYPES f$TMPO ; TYPE IT IN OCTAL 

TYPE *TWOSPC ; TYPE THO SPACES 

Tt.INIT : KILL THE CURRENT INPUT REQUEST 

TSREAD #KEYBUF.#1 ; READ ONE CHARACTER 
122767 000040 175751 CMPB #40.KEYBUF*1 ; WAS 
001405 BEQ 1$ ; BRANCH IF YES 
042767 000400 175444 BIC fSINST.SWR ; CLEAR THE SINGLE INSTRUCTION FLAG 

CALLMICMON 
000401 BR 2$ 

1$: ENCTRLC ; CALL MONITOR TO ENABLE 
2$: MTPS $PSW ; RESTORE THE PSW 
000207 RTS PC 



GET VALUE OF TPC 

; SUBTRACT RELOCATION CONSTANT 



IT A SPACE? 



CALL MONITOR 
; RESTORE THE 
; RETURN 



KEYBOARD REQUEST 
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1050 
1051 
1052 
1053 
1054 
10.^,5 
1C56 
11*^7 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
109C 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 

lion 

1101 
1 1 02 
1103 
1104 
1105 
1106 



.t>*<>t<tt*<*tt*t> 



«t*<ttt>t*****«t*t*t>>>*»tt«t 



««t««tttt 



THIS ROUTINE GENERATES A KMX FIELD IN THE SPECIFIED MICRO INSTRUCTION' 
EQUAL TO THE CURRENT LOOP COUNT MINUS 1. 



***** t t 



**«**«l«***«********«*ftftt**«t» 



********»*•*•••*«*•* 



013604 016700 

013610 066700 

013614 062700 

013620 016701 

013624 066701 

013630 017101 

013634 005301 

013636 000301 

013640 006301 

013642 006301 

013644 042710 

013650 050110 



013652 



RETURN 



173044 $KMXGEN:MOV ARGl .RO ; GET ADDRESS OF MICRO INSTRUCTION 

172620 ADD RELOC.RO : ADD RELOCATION FACTOR 

000006 ADD »6.R0 ; SELECT THE 4TH 16 BIT WORD (KMX FILED STARTS AT BIT58) 

173032 MOV ARG2.R1 ; GET INDEX INTO INDEX TABLE POINTER TABLE 

172754 ADD LOADAD.Rl ; 

006616' MOV aLOOPTB(Rl).Rl ; GET THE CURRENT INDEX VALUE 

DEC Rl ; ADJUST 

SWAB Rl : PUT IN KMX FIlED POSITION 

ASL Rl ; . .. 

ASL Rl ; ... 
176000 BIC #176000, (RO) : CLEAR CURRENT KMX F 

BIS Rl.(RO) : INSERT NEW FIELD VALUE 



ELD 



EXIT 



SBTTL •' LOAD CONSOLE ADAPTER REGISTER SUBROUTINE 

THIS ROUTINE LOADS THE SPECIFIED CONSOLE ADAPTER REGISTER WITH 
THE SPECIFIED DATA. THE DATA IS ALMAYS 16 BITS. 



xtltttttttttttttttttttttttttltlltlttttttttttttttttllttttttttttlttllt 



013654 
0136.0 
013664 
013670 
013672 
013676 
013702 
013704 
013706 
013710 
013712 
013714 
013720 
013722 
013724 
013726 



016700 
016701 
016702 
100407 
066702 
017202 
005302 
006302 
000401 
005002 
060201 
066701 
011110 
000240 
000240 



1$ 



172774 
172772 
172770 

BMI 
172706 
006616' 

DEC R2 

ASL R2 

BR 2$ 
1$: CLR 
2$: ADD 
172514 

MOV 

NOP 

NOP 



$LDCA: MOV ARGl.RO ; GET THE ADDRESS OF THE CA REGISTER 
MOV ARG2.R1 ; GET THE ADDRESS OF THE DATA 
MOV ARG3.R2 ; IS THE DATA INDEXED? 

; BRANCH IF NO 
ADD L0ADAD.R2 ; ADD RELOCATION FACTOR 
MOV aL00PTB(R2) .R2 ; GET THE CURRENT VALUE OF THE INDEX 

; MAKE IT A WORD INDEX 



R2 ; NC INDEXING. SO CLEAR INDEX 
R2.R1 ; GENERATE THE ADDRESS OF THE DATA 
ADD RELOC.Rl ; ADD THE RELOCATION CONSTANT 
(Rl).(RO) ; LOAD THE REGISTER WITH THE DATA 
; WAIT FOR INTERRUPTS 



RETURN 



SBTTL ■• LOAD ID REGISTER SUBROUTINE 

'this ROUTINE lCADS THE SPECIFIED ID BUS REGISTER WITH THE 
SPECIFIED DATA. IF THE DATA IS INDEXED. THE INDEX IS MADE 
ON 32 BITS. 

t*««*«t«t***«*t*tt***t«**«ttftt*t«**t*«t*r*t**t***t**««**t*tt«tt*t*tt 
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433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
443 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 



SBTTL "PROGRAM INITIALIZATION 

THE FOLLOMING CODE CALCULATES THE LOAD ADDRESS AND SAVES IT IN "LOADAD- 
IT SETS UP THE INTERRUPT AND TRAP VECTORS FOR UNEXPECTED TRAPS. 
IT RELOCATES THE DISPATCH TABLE AND THE LOOP INDEX POINTER TABLES. 
IT THEN OPENS THE TEST STREAM FILE. READS IN THE FIRST OVERLAY. AND 
TYPES THE OVERLAY NUMBER. IT THEN INITIALIZES THE TEST PC (TPC) AND 
THE TEST TABLE POINTER. 

EXECUTION THEN TRANSFERES TO THE TEST STREAM INTERPRETER. 



t****tt<*«t>*tt»**t***ttt*****t**t*(tt****attt»*t*«**t*t(* 



*tt<t****** 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
Dl 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



1000 
1002 
1006 
1012 
1020 
1024 
1032 
1040 
1044 
1050 
1054 
1060 
1064 
1070 
10 74 
1100 
1104 
1110 
1112 
1114 
1116 
1120 
1124 
1130 
1132 
1134 
1136 
1140 
1146 
1152 
1164 
1204 
1210 
■216 
1224 
1226 
1240 
1246 
1254 
1260 
1300 
1306 
1310 



010700 HARDCO: 

162700 011002' 

010067 175572 

012767 020400' 1 

060067 175410 

012737 010324' 

066737 175546 

012701 01O466' 

066701 175534 

010137 000300 

010137 000304 

012701 000340 
005037 000006 
010137 000302 
010137 000306 

012702 000042 

012701 007060" 
060001 ADD RO 
060021 5$: ADD 
005302 DEC R2 
001375 ONE 5$ 

012702 000003 
0127U1 006616' 
060001 ADD RO 
060021 6$: ADD 
005302 DEC R2 
001375 ONE 6$ 
012767 007370' 1 
060067 175412 

OPENFILE TEST 
READOVR RELOC 

004767 177316 

016767 175220 1 

032767 C00300 1 

001415 BEQ 64 
OPENFILE TEST 



MOV PC.RO ; CALCULATE THE OFFSET FROM 

SUB #..R0 ; ABSOLUTE 

MOV RO. LOADAD ; SAVE 
75414 MOV #END. RELOC 

ADD RO. RELOC ; ADJUST 
00004 MOV #CATCH,at4 
00004 ADD LOADAD. a«4 



; INITIALIZE RELOCATION CONSTANT 
THE ADDRESS IN LOCATION RELOC 
; SET UNEXPECTED TRAP CATCHER 



MOV 
ADD 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
.Rl 
RO. 



#CATCHI.R1 ; GET ADR OF UNEXPECTE INTRPT CATCHER 

LOADAD. Rl 

Rl.a#300 

Rl, 31304 

#340. Rl 

af6 ; SETUP PSW OF TRAP TO 4 

Rl.a*302 ; AND INTRPT VECTORS 

Rl.a#306 ; ... 

#TBLSIZ.R2 ; ADD RELOCATION FACTOR TO 

fDISPAT.Rl ; THE DISPATCH TABLE ENTRIES 



(Rl)* 



MOV f3.R2 : ADD 
MOV #L00PTB.R1 ; 

,R1 ; 

'rO.(RI)*'; ... 



RELOCATION FACTOR TO 
THE LOOP INDEX TABLE 



066767 

016767 

005367 

64$ 

016767 



17.'S310 
175124 
175112 
READOVR 

007076 



TYPESECTNO 
012767 000034 



75416 MOV ^MODULES.MODLNK 

ADD RO.MODLNK ; POINTER 
STREAM ; OPEN THE TEST STREAM FILE 
.#256. ; GET DIRECTORY 

JSR PC.TYPVER ; TYPE THE VERSION NUMBER 
75452 MOV RELOC. ?TADR .- I.-IITIALIZE START 
75202 BIT #LOST+LOSS.SWR ; LUOP ON 
$ ; BRANCH IF NO 

STREAM ; OPEN THE TESI STREAM FILE 
75310 ADD LUSSEC. SECTOR ; GENERATE 
75116 MOV TESTNO.STSTNM : INIT TH'' 

DEC STSTNM ; ... 
ElOC ; READ THE FIRSl QVERlA^ 
75074 MOV END*2.$SCTN0 ; SAVE THIS 

TYPE THE SECTIOK NUMBER 
7,^114 nOi' #TPCiNIT,TPC ; INIUALlZE 



INITIALIZE THE MODULE NAME LIST LINK 



ADDRESS 
SPECIAL itST OR 



SECTION? 



SECTOR ADDRESS OF 
■'nST NUMBER 



SECTION NUMBER 



CPECIAL FUNCTION 



HE TPC 
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490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
1356 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 



535 



On3i6 066767 

011324 012767 

011332 066767 

011340 032767 

011346 LD1403 

011350 G42767 

011356 66$ 



175112 175106 ADD RELOC.TPC ; 

000004 175244 MOV KlTSTPTR .TSTPTR ; INITIALIZE THE TEST POINTER 

175076 175236 ADD RELOC.TSTPTR ; 

060000 175062 BIT #TSTSPAN*SCTSPAN .SWRl ; WAS A SPAN SPECIFIED? 

BEQ 66$ ; BRANCH IF NO 
000300 175050 BIC *LOSS*LOST .SWR ; CLEAR THE LOST AND LOSS FLAGS 



SBTTL "TEST STREAM INTERPRETER 

+ 

THE FOLLOrfiNG CODE INTERPRETS THE PSEUDO INSTRUCTIONS IN THE "^"Sl 
STREAM. IT FIRST TESTS IF THE "SINGLE INSTRUCTION" FLAG IS SET AND 
IF IT IS. A CALL IS MADE TO THE "SINGLE INSTRUCTION ROUTINE" iN THE 
MICRO DIAGNOSTIC MONITOR. 

IT THEN PICKS UP THE CURRENT OPCODE AND ARGUMENT COUNT. PUTS THE 
ARGUMENTS OF THE OPCODE IN LOCATIONS "ARGl" THRU "ARG6" AND DOES A 
SUBROUTINE CALL TO THE ROUTINE SPECIFIED BY THE OPCODE. 



**<<(*****t*tt*<«t*<**t*<*****t**«ilr**t***«t**tt«t***<*tt***t*****t*tt* 



011356 
104023 
011360 
011366 
011370 
011376 
011400 
011406 
011410 
011414 
011420 
011422 
011424 
011426 
C11432 
011436 
011440 
011442 
011444 
011450 
011452 
011456 
011462 



4$: 
EM 
032767 
001412 
032767 
001404 
026767 
001002 
004767 
016700 
112001 
112002 
001407 
012703 
066703 
012023 
005302 
001375 
010067 
006301 
066701 
004771 
000735 



CHKKEY 
T CHKSHITCH 



CHECK IF KE^ SWITCH CHANGE 



1 
7$ 

1 
9$ 

1 
7$ 



000400 

BEQ 
000200 

BEQ 
174766 

BNE 
:77166 
175012 

MOVB ( 

MOVB ( 

BEQ 2$ 
006654' 
175146 
1$: MOV 

DEC R2 

BNE 
174762 

ASL 
175126 
G07060 

BR 



; SINGLE INSTRUCTION MODE SET? 
LOOP ON SPECIAL TEST? 



ON THE TEST YET? 



1$ 

Rl 



4$ 



75040 BIT fSINST.SHR 

: BRANCH IF NO 
75030 BIT ILOST.SUR 

; BRANCH IF NO 
74770 CMP $TSTNM,TESTNO 

; BRANCH IF NO 

9$: JSR PC.SGLINST ; CALL THE SINGLE INSTRUCTION ROUTINE 
7$: HOV TPC.RO • GET THE CURRENT TPC 
R0)*.R1 ; GET T.^E OP CODE 

R0)*.R2 ; GET THE NUMBER OF WORD ARGUMENTS 
;. BRANCH IF NO ARGUMENTS 
MOV #ARG1.R3 ; GET THE ADDRESS OF THE ARGUMENT TABLE 
ADD L0ADAD.R3 ; ADD RELOCATION FACTOR 
(R0)*.(R3)* ; PICK UP AN ARGUMENT 
IS THE LOOP DONE? 
BRANCH IF NO 
2$: MOV RO.TPC ; UPDATE THE TPC 
MAKE OP CODE A WORD INDEX 
ADD LOADAD.Rl ; ADD RELOCATION FACTOR 
JSR PC.iDISPATCRl) ; GO TO THE EXECUTE SUBROUTINE 
; CONTINUE 



VAX 11/780 MICRO DIAGNOSTIC HAR MACRO Y05.02 Sunday 18-Nov-84 
•• BLOCK MIC SUBROUTINE 



M 
17; 



2 
08 



Page 11 



537 
538 
539 

540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 



SBTTL •■ BLOCK MIC SUBROUTINE 
THIS ROUTINE MOVES A BLOCK OF MICRO WORDS TO WCS. 



**«**t*ttt«»t>*«t«ft««t*t«t***Bt«t»tftft*ttt«*«*tt***t* 



t*t«t«***t**««t* 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

: 1 

01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



1464 
1470 
1474 
1500 
1502 
1506 
1512 
1516 
1520 
1522 
1524 
1526 
1530 
1532 
1534 
1536 
1540 
1542 
1544 
1546 
1552 
1556 
1560 
1564 
1570 
15/2 
1576 
1600 
1602 
1604 
1606 
1610 
1614 
1616 
1622 
1624 
1630 
1632 
1634 
1636 
1654 



016700 
066700 
116701 
100420 
066701 
017101 
016702 
010203 
006302 
060302 
006302 
006302 
005003 
0C5301 
001403 
060203 
000774 
005003 
060300 
016701 
116702 
100412 
066702 
017202 
005302 
005767 
001403 
OC6302 
000401 
005002 
06C201 
005767 
001403 
066701 
011101 
016702 
G10203 
006302 
060302 
LO 
RE 



175164 IBLKMICrMOV ARGl.RO ; GET THE ADDRESS OF THE MICRO INSTRUCTION 
174740 ADD RELOCRO ; ADD THE RELOCATION CONSTANT 

175162 HOVB ARG4.R1 .- IS THIS ADDRESS INDEXED? 

BMI 2$ ; BRANCH IF NO 
175076 ADD LOADAD.Rl ; ADD RELOCATION CONSTANT 

006616' MOV aLOOPTB(Rl).Rl ; GET THE CURREf'T VALUE OF THE INDEX 
175142 MOV ARG^.R2 ; GET THE WORD COUNT Or" THE BLOCK 

MOV R2.R3 : SAVE IN R3 

ASL R2 ; CALCULATE THE SIZE OF THE BLOCK IN BYTES 
ADD R3.R2 ; BY MULTIPLYING THE WORD COUNT BY 14(8) 
ASL 
ASL R2 ; . 

; INITIALIZE A WORKING REGISTER 
Rl ; MULTIPLY THE SIZE OF THE BLOCK BY 

; THE CURRENT INDEX 
.R3 ; . 

R3' ; NO INDEXING SO CLEAR THE INDEX 

R3.R0 ; GENERATE THE ADR OF THE U INSTRUCTION 

MOV ARG2.R1 : GET THE WCS ADDRESS 

MOVB ARG4*1.R2 ; IS THE ADDRESS INDEXED? 

: BRANCH IF NO 
ADD L0ADAD.R2 ; ADD RELOCATION FACTOR 
MOV aL00PTB{R2).R2 ; GET CURRENT VALUE OF INDEX 



4$ 



R2 

R2 

R3 

R2 

ASL R2 

CLR R3 

1$: DEC 

BEQ 3$ 

ADD R2 

BR 1$ 

2$: CLR 

3$: ADD 

175104 

175105 

BMI 

175020 

006616 

DEC 

175066 

BEQ 5$ 

ASL R2 

BR 5$ 

4$: CLR 

5$: ADD 

175050 

BEQ 

174612 

MOV 

175030 

MOV 

ASL 

ADD 

ADWCS RO 

TURN 



R2 



6$ 

(R 

R2 
R2 
R3 

,r: 

EX 



TST ARG5 ; IS ADDRESS IN LSI-11 MEMORY? 
; BRANCH IF NO 
; MAKE INDEX A WORD INDEX 

R2 ; NO INDEXING 

R2.R1 ; INDEX THE WCS ADDRESS 

TST ARG5 ; IS ADDRESS IN LSI-11 TABLE? 
: BRANCH IF NO 

ADD RELOC.Rl ; GET ADDRESS OF TABLE 
1) .Rl ; GET THE WCS ADDRESS 
6$: MOV ARG3.R2 ; PUT THE WORD COUNT IN R2 
.R3 : MULTIPLY THE WORD COUNT BY 3 

.R2 V ... 

,R2 ; LOAD THE WCS WITH THE BLOCK 
IT 



SBTTL '■ CHECK POINT SUBROUTINE 

§ 

THIS ROUTINE IS USED TO TEST THE RESULT OF A '■TSTVO' PSEUDO 
INSTROlTION. IT PERFORMS THE 'FOLLOWING FUNCTIONS: 

1) IF THE 'NER' FLAG IS CLEAR THE TPC OF THE CALL 



N 2 
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3) 



594 
595 

596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 

607 011656 005767 

608 011662 001407 
6C9 011664 005767 

610 011670 100415 

611 011672 016767 

612 011700 000406 

613 011702 005767 

614 011706 100406 

615 011710 016767 

616 011716 066767 

617 011724 032767 

618 011732 OC1025 

619 011734 016767 

620 011742 166767 

621 011750 

622 C1 1770 



HILL BE TYPED FOLLOWED BY A COMMA SPACE. THIS 
OUTPUT OCCURS ON THE LIiJE NAMED "TRACE". 

2) IF THE V BUS TEST DID NOT FAIL (LOCATION SCHKFLG IS 
CLEAR). THE TPC IS SET TO THE "PASS ADDRESS" IF IT 
HAS SPECIFIED OTHERHISE THE TPC IS UNCHANGED. 



IF THE V BUS TEST FAILED (LOCATION SCHKFLG IS NON ZERO) 
THE TPC IS SET TO THE "FAIL ADDRESS" IF IT HAS 
SPECIFIED. OTHERHISE THE TPC IS UNCHANGED. 



175022 $CHKPNT:TST ICHKi^LG ; V BUS FAILURE? 
BEQ 2$ : BRANCH IF NO 



623 012006 
624 



174766 TST ARG2 ; FAIL ADDRESS SPECIFIED? 

BHI 4$ : BRANCH IF NO 
174760 174532 MOV ARG2.TPC ; SET TPC TO FAIL ADDRESS 

BR 3$ : EXIT 
174746 2$: TST ARGl : PASS ADDRESS SPECIFIED? 

BMI 4$ ; BRANCH IF NO 
174740 174514 MOV ARGl. TPC ; SET TPC TO PASS ADDRE^ " 
174512 174506 3$: ADD RELOC.TPC ; ADD RELOCATION FACTOR TO TP 
000010 174474 4$: BIT #NER.SWR ; INHIBIT ERROR REPORT? 

BNE 1$ : BRANCH IF YES 
174472 174636 MOV TPC.STMPO ; GET NEXT TPC 
174466 174630 SUB RELOC.$TKP0 ; SUBTRACT RELOCATION OFFSET 
TYPES «$THPO r TYPE IT 
TYPE #COMSPC ; TYPE A ", " 



1$: RETURN 



EXIT 



SBTTL " CLOCK SUBR JjTINE 



THIS ROUTINE TICKS THE VAX SYSTEM CLOCK IN SINGLE TIME STATE 
MODE T '' NUMBER OF TICKS SPECIFIED BY THE FIRST ARGUMENT 
CF THE CLOCK" MACRO. 

; DO A SINGLE BUS CfCLt? 



625 
626 
627 
628 
629 
630 
631 
632 
633 

634 0120iO 022767 000004 174636 SCLOCK: CMP #4. ARGl 

635 012016 001002 BNE 1$ ; BRANCH IF NO 

636 012020 SBCCLOCK ; TICK THE CLOCK (SINGLE BUS CYCLE) 

637 012022 000404 BR 2f ; 

638 012024 1$: STSCLOCK ARGl ; TICK THE CLOCK (SINGLE TIME STATE) 

639 012034 2$: RETURN 
640 

64i 
642 
643 
644 
645 
646 
647 
648 
649 
650 012036 00526 



.SBTTL •■ COMPARE CONSOLE ADAPTER REGISTER SUBROUTINE 

.t«>tttttt>><att«i*<ttt*t«*t**t*ttttta*lt>t*t*«>«t*ttt*ittltt*ta>«<t 

* 

THIS ROUTINE IS ENTERED Br FOUR PSEUDO INSTRUCTIONS: CMPCA , 
CMPCAD. CMPCAM AND CMPCMD. 



t * I t t t t 



«ttt tt t«ft******tKtta«««g 



• tBt*««St«**««*t*ltttt«Vtflt4ttt 



174632 SCPCAM: INC MSKFLG 



SET THE MASK FLAG 
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B 
17: 
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651 
652 
653 

654 
655 
65o 
657 

658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
65 
676 
677 
678 
679 
680 
6R1 
682 
683 
u84 
685 
696 
687 
688 
639 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
^01 
702 
703 
704 
705 
706 
707 



012042 
012046 
012052 
012056 
012062 
012064 
012070 
012074 
01207c' 
01210 



116700 
005067 
066700 
116701 
100407 
066701 
017101 
005301 
006301 
000401 



174606 

174632 

174526 

174573 

Bdl 

174514 

006616 

DEC 

ASL 

BR 



SCMPCA: flOVB ARGl .RO ; GET THE MODE VALUE 
CLR $CHKFLG ; AND THE CHECK ERROR FLAG 
ADD LOADAD.RO ; ADD RELOCATION FACTOR 
HOVB ARGl^l.Rl ; IS THE DATA INDEXED? 
1$ ; BRANCH IF NG 

ADD LOADAD.Rl ; ADD RELOCATION CONSTANT 
MOV aLOOPTBCRD.Rl ; GET CURRENT INDEX 

I MAKE IT A WORD INDEX 



Rl 
Rl 

2$ 



DATA IS NOT IfiDEXED SO CLEAR THE INDEX VALUE 



012102 005001 1$: CLR Rl ; 

012104 016702 174546 2$: MOV ARG2.R2 ; GET THE ADDRESS OF THE CONSOLE 

: ADAPTER REGISTER 

012110 022702 177777 CHP f-l.R2 : IS DATA IN LSI-11 MEMORY? 

012114 001004 BNE 12$ ; BRANCH IF LOW WORD ISN'T 

012116 012702 006464' MOV IRDIDL0W.R2 ; PUT MEMORY ADDRESS IN R2 

012122 066702 174456 ADD L0ADAD.R2 ; ADD RELOCATION FACTOR 

012126 022702 OOOOOl 12$: CMP #1.R2 ; IS HIGH DATA IN LSI-11 HEhORY? 

012132 001004 BNE 11$ : BRANCH IF NO 

012134 012702 006^66' MOV iRDIDHI .R2 ; PUT MEMORY ADDRESS IN R2 

012140 066702 174440 ADD L0ADAD.R2 ; ADD RELOCATION FACTOR 

012144 016703 174510 11$: MOV ARG3.R3 : GET ADDRESS OF DATA TABLE 

012150 066703 174260 ADD REL0C.R3 ; ADD THE RELOCATION FACTOR 

012154 105767 174502 TSTB ARG4 ; DOUBLE MODE? 

012160 100410 BHI 13$ ; BRANCH IF NO 

012162 005767 174510 TST DBLFLG ; IS THIS FIRST CALL OF THE DOUBLE CA' L' 

012166 001403 BEQ 9$ ; BRANCH IF NO 

012170 005067 174502 CLR DBLFLG : 

012174 000402 BR 13$ ; 

012176 005267 174474 9$: INC DBLFLG : SET DOUBLE ^LAG TO INDICATE SECOND TIME 

012202 005767 174466 13$: TST MSKFLG ; IS THIS A MASK CALL' 

012206 001007 BNE 4$ r BRANCH IF YES 



THE CALL WAS A "CMPCAD". ADJUST THE INDEX VALUE 



212210 105767 174446 10$: TSTB ARG4 ; DOUBLE MODE? 

012214 100401 BMI 3$ : BRANCH IF NO 

C12216 006301 ASL Rl ; MAKE THE INDEX A 32 BIT INDEX 

C12220 060103 3$: riL R1.R3 ; GENERATE THE ADDRESS OF THE DATA 

C12222 021312 CMP (R3;.(R2) ; COMPARE THE EXPECTED AND RECEIVED DATA 

C12224 000440 BR 8i ; GO EXECUTE THE APPROPRIATE BRANCH 



THE CALL WAS EITHER A 'CMPCAH" ">R "CMPCMD". SEE WHICH ONE 



012226 016704 174432 

012232 066704 174176 

012236 116705 17^421 

012242 100407 BMI 



4$: MOV ARGS.R: ; GET THE ADDRESS OF THE 
ADIi RELnC,R4 ; ADD THE RELOCATION FACTOR 
MOVB ARGI^I.RS ; IS THE MASK INDEXED? 
5$ ; BRANCH IF NO 



MASK 



VAX 11/780 MICRO DIAGNOSTIC HAR MACRO Y05.02 Sunday 18-Nov-84 
• COMPARE CONSOLE ADAPTER REGISTER SUBROUTINE 



C 3 
17:08 



Page 11-3 



708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
735 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 



012244 066705 174334 ADD 

012250 017505 006616' MOV 

012254 005305 DEC R5 ; 

012256 006305 ASL R5 ; 

012260 000401 BR 6$ : 

012262 005005 5$: CLR R5 

012264 105767 174372 6$: 

012270 100402 BMI 7$ ; 



L0ADAD.R5 ; ADD 
aLO0PTB(R5),R5 ; 



THE RELOCATION FACTOR 
GET THE CURRENT INDEX 



HAKE THE INDEX A WORD INDEX 

: NO INDEXING SO CLEAR THE 
TSTB ARG4 ; IS IT A DOUBLE 
BRANCH IF NO 



INDEX 
MODE? 



THE INSTRUCTION HAS A "CMPCMD" . MAKE INDEX VALUE DOUBLE 



012272 
012274 
012276 
012300 
012302 
012306 
012312 
012316 
012320 
012322 
012324 
012326 



006301 
006305 
060103 
060504 
011267 
012702 
066702 
011404 
005104 
040412 
021312 
000160 



ASL 

ASL 

7$: 

ADD 

174272 

0G6600 

174266 

MOV 

COM 

BIC 

CMP 

012424 



Rl : MAKE THE INDEX A 32 BIT INDEX 
R5 : ALSO THE MASK INDEX 
ADD R1.R3 ; GENERATE THE ADDRESS OF THE DATA 
R5.R4 ; GENERATE THE ADDRESS OF THE MASK 

MOV {R2).$TMP0 ; PUT THE RECEIVED DATA IN $TMPO 

GET THE ADDRESS WHERE THE DATA IS 
ADD RELOCATION FACTOR 



MOV *$TMP0,R2 
ADD L0ADAD.R2 



{R4) .R4 
R4 ; 
R4.tR2) 
(R3) .CR2) 



THE MASK 

MASK THE RECEIVED DATA 
MAKE THE COMPARISON OF EXPECTED AND RECEIVED 



8$: JMP BRTBL(RO) ; GO EXECUTE THE APPROPRIATE BRANCH 



THE BRANCH TABLE RETURNS TO EITHER "PASS" OR "FAIL". IF FAIL. 
THE ERROR FLAG IS SET. THE EXPECTED AND RECEIVED DATA IS SAVED 
IN LOCATIONS "GOODDAT" AND "BADDAT" FOR ERROR TYPEOUT . 



012332 
012340 
012346 
012352 
012356 
012360 
012364 
012366 
012372 
012376 
012402 
012404 
012410 
012414 
012422 



012767 
012767 
C:5067 
105767 
100403 
005767 
001007 
011367 
011267 
005067 
000407 
011367 
011267 
012767 
2$: 



012424 001750 

012426 000741 

012430 001346 

012432 C00737 



000401 174046 FAIL: MOV f401.$ERFLG ; SET THE ERROR FLAG 

000001 174336 MOV #1 .SCHKFLG : SET THE CHECK FLAG ALSO 

174322 PASS: CLR fSKFLG ; INITIALIZE THE MASK FLAG 

174304 TSTB ARG4 ; IS THIS A DOUBLE CALL? 

BMI 3$ ; BRANCH IF NO 

174312 TST DBLFLG ; IS THIS FIRST TIME THROUGH? 

BNE 1$ ; BRANCH IF NO 

174024 3$: MOV (R3). GOODDAT ; SAVE THE EXPECTED DATA 

174024 MOV (R2). BADDAT ; SAVE THE RECEIVED DATA 

174306 CLR DATTYPE ; SET 16 BIT DATA TYPE 

BR 2$ ; 

174010 1$: MOV (R3 ) ,GO0DDAT»2 : SAVE SECOND WORD OF EXPECTED DATA 

174C10 MOV (R2) .BADDAT*2 ; SAVE SECOND WORD OF RECEIVED DATA 

000001 174266 MOV *1 .DATTYPE ; SET 32 BIT DATA TYPE 

RETURN ; EXIT 



BRTBL: BEQ PASS 
BR FAIL 



BNE 
BR F 



PA 

All 



SS 



.SET 



i L 



COMPARt PC SAVE SUBROUTINE 



tt«a«t«'tttt*t* tt*t 



* t * t n t t 



«*tt«<i«tttt«ttttt t**aft •attatt 
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765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
80 i 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 



THIS ROUTINE COMPARES THE SPECIFIED EXPECTED DATA WITH THE 
CONTENTS OF THE MICRO PC SAVE REGISTER. IF THEY ARE NOT EQUAL 
THE ERROR FLAG "SERFLG" IS SET. 






***«tt«t««««»«» 



012434 
012440 
012444 
012450 
012452 
012456 
012462 
012464 
012466 
012470 
012472 
012474 
012500 
012502 
012510 
012514 
012522 
012524 
012532 



016700 
06670C 
016701 
100407 
066701 
017101 
005301 
006301 
000401 
005001 
060100 
011067 



1$ 



174214 

173770 

174206 
BMI 

174126 

006616' 

DEC Rl 

ASL Rl 

BR 2$ 

1$: CLR 

2$: ADD 

173716 



GETUPC 



016767 
005067 
026767 
001403 
012767 
5$: 



17: ::c 

173676 
BEQ 
000401 
RETURN 



GE 

1 

1 

5$ 

1 



$CMPPCS:MOV ARGl .RO ; GET THE ADDRESS OF THE EXPECTED DATA 
ADD RELOC.RO ; ADD THE RELOCATION FACTOR 
MOV ARG2.R1 ; IS IT INDEXED? 

; BRANCH IF NO 
ADD LOADAD.Rl ; ADD TCELOCAT'ON CONSTANT 
MOV aLOOPTB(Rl).Rl : GET THE CURRENT VALUE OF THE INDEX 

: MAKE IT A WORD INDEX 

Rl ; NO INDEXING SO CLEAR THE INDEX 

Rl.RO ; GENERATE THE ADDRESS OF THE EXP DATA 

MOV (RO).GOODDAT ; SAVE EXPECTED VALUE OF UPC SAVE 

T THE CURRENT VALUE OF THE UPC 

73712 MOV GOTUPC.BADDAT ; SAVE IT 
CLR DATTYPE ; SET 16 BIT DATA TYPE 

73700 CMP GOODDAT.BADDAT ; IS EXPECTED SAME AS RECEIVED? 
: BRANCH IF YES 

73654 4$: MOV «401 .SERFLG ; SET THE ERROR FLAG 
EXIT 



.SBTTL ■• END HARDCORE SU3P0UTINE 

THIS ROUTINE FIRST CHEC<3 TO SEE IF A SECTION IS BEING LOOPED 
IF IT IS AND THE SECHON IS BACKWARD. EXECUTION IS 
TRANSFERED TO THE END OVERLAY ROUTINE. IF THE SECTION IS FOREWARD 
OR LOOP ON SPECIAL SECTION IS NOT SET. THE HARDCORE TESTS ARE 
TERMINATED AND EXECUTION RETURNS TO THE MICRO DIAGNOSTIC MONITOR. 

r*t>*t>It«t*>t*t*t>«<*t<*t*>(*t<*t**t**t*>t**«t**«lt*<*ttttttt*t><l*ttt 



012534 032767 

012542 001010 

012544 032767 

012552 001406 

G12554 026767 

012562 001002 

012564 000167 

012570 005726 
C12572 DONE 



000100 173664 $ENDHC: BIT ^LOSS.SWR ; LOOP ON SPECIAL SECTION? 

BNE 1$ ; BRANCH ],- YES 
040000 173656 BIT »SCTSPAN ,SWR1 ; SPAN SPECIFIED? 

BEQ 2$ : BRA-.CH !F NO 
173614 173620 ^:V ENDSFAN .$SCTNO ; / 

BNE 2$ ; / 
000112 1$: JMP $ENDOVR ; LET END OVERLAY ROUTINE FIGURE IT OUT 
2$: TST (SP)* : POP RETURN ADDRESS F^^OM STACK 

; RETURN 



SBTT' ENDLOOP SUBROUTINE 



• ftttt***** 



t*«t*tttt*t 



THIS ROUTINE FIRST ADDS THE INCREMENT VALUE OF THE LOOP 

TO THE CURRENT LOOP VALUE. IT THEN CHECKS TO SEE IF THE ! OOP 

IS FINISHED BY COMPARING THE CURRENT LOOP VALUE WITH THE 

END LOOP VALUE. IF THE LOOP IS NOT FINISHED, THE TPC IS REPLACED 
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822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
366 
067 
868 
869 
870 
971 
872 
873 
C74 
875 
876 
877 
878 



WITH THE CONTENTS OF THE LOOP TPC . 



012604 
012610 
012612 
012616 
012622 
012624 
012630 
012632 
012636 
012642 
012644 
012650 
012652 
012656 
012660 
012664 
012666 
012674 
012676 
012700 



016700 

010002 

066700 

016000 

011001 

066001 
ni ni 1 n 

062702 
06^702 
010112 
005760 
100003 
026010 
000402 
021060 
003004 
016067 
000401 
005012 
4$: 



174044 $ENDLOP:MOV /vRGl ,S0 ; GET INDEX INTO LOOP TABLE POINTER TABLE 

MOV R0.R2 ; SAVE lO INDEX LPICNT 
173766 ADD LOADAD.RO ; ADD RELOCATION CONSTANT 
006616 • MOV LOOPTB(nO).RO ; GET THE ADDRESS OF THE LOOP TABLE 

MOV (RO).Rl : GET THE CURRENT VALUE 



000004 

0O66110' 
173742 

MOV Rl 
000004 

BPL 1$ 
000002 

BR 2$ 
000002 1$: CMP (R0),2(R0) ; IS FIRST 

2$: BGT 3$ ; BRANCH IF LOOP DONE 
000006 173536 MOV 6(R0).TPC : SET LOOP ADDRESS 
BR 4$ 
3$: CLR {R2) ; CLEAR THE LOOP COUNT FOR TYPEOUT 
RETURN 



ADD 4(R0),R1 ; ADD INDEX VALUE 
.(RO) : SAVE NEW CURRENT LOOP VALUE 

ADD #LP1CNT.R2 ; GENERATE ADDRESS OF HORD TO SAVE THE COUNT 

ADD L0ADAD.R2 ; ... 
,(R2) ; UPDATE THE LOOP COUNT THAT GETS TYPED 

TST 4(R0) ; IS INCREMENT POSITIVE OR NEGATIVE? 
; BRANCH IF POSITIVE 

CMP 2(R0).(R0) ; IS LAST .GT. FIRST? 



.GT. LAST? 



IN TPC 



.SBTTL " en: 



RLAY SUBROUTINE 



«ttt*tttt**;t<*<***«*«*****ft*t«**>**<*i**t*t*tt**t*t«>t 



THIS ROUTINE FIRST CHECKS THE LOOP ON SPECIAL SECTION (LOSS) 

FLAG AND IF SET. EITHER THE CURRENT SECTION 

IS LOOPED ON. THE NEXT SECTION IS READ INTO MEMORY. OR THE 

^!L£ IS REOPENED. IF NOT SET. THE NEXT SECTION IS READ INTO MEMORY. 



012702 
012710 
012712 
012720 
012722 
012730 
012732 
012740 
012742 
Q12744 
012746 
012^66 
012774 
012776 
013004 
013012 
013020 
013026 



032767 
001404 
026767 
001426 
032767 
C31406 
026767 
001002 

4$: 
000776 

3$: 
016767 

TYP 
012767 
066767 
012767 
066767 
RET 



OOOIOO 

BEa 

173464 
BEQ 

040000 

BEQ 

173436 

BNE 

CALLMICMON 

BR 4$ 
READOVR RE 

005410 
ESECTNO 
000034 
173424 
000004 
173410 
URN 



1 
1$ 

1 
2$ 

1 
3$ 

1 
3$ 



1 

1 
1 
1 
1 
EX 



73516 $ENDOVR:BIT fLOSS.SHR ; LOOP ON SPECIAL SECTION? 

; BRANCH IF NO 
7^464 CMP SSCTNO.SECTNO ; IN THE CORRECT SECTION? 

; BRANCH IF YES 
73500 1$: BIT fSCTSPAN .SWRl ; HAS A SECTION SPAN SPECIFIED? 

; BRANCH IF NO 
73442 CMP ENDSPAN.tSCTNO ; FINISHED LAST SECTION? 

; BRANCH IF NO 

; DONE 
; DON'T ALLOW CONTINUE 
LOC ; GET THE THE NEXT OVERLAY 
73406 MOV END*2,$SCTN0 ; SAVE THE CURRENT SECTION NUMBER 

73426 2$: MOV fTPCINIT.TPC ; INITIALIZE THE TPC 
■.'!20 ADD RELOC.TPC ; ADD THE RELOCATION CONSTANT 
:J556 MOV /ITSTPTR.TSTPTR ; INITIALIZE THE TEST POINTER 
73550 ADD RELOC.TSTPTR ; ADD THE RELOCATION CONSTANT 
IT 



.SBTTl 



tRROR LOOP SUBI^OUTINE 
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ERROR LOOP SUBROUTINE 



879 
880 
881 
882 
883 
834 
885 
886 
687 
888 
889 
890 
891 
89: 
Q'>3 
f94 
ti?S 
8*^6 
85 7 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
92C 
921 
922 

", "; ^. 

924 

925 
926 
927 
928 
929 
93 
931 
932 
933 
934 
935 



THIS ROUTINE SAVES THE CURRENT TPC IN LOCATION "SLPERR" TO 
MINIMIZE THE SIZE OF THE ERROR LOOP. 



t*t*t*t«Kt«ttttt««**ttft***ttt**t«t*t««**»*ftft*tt**«t*«*«»«* 



********** 



013030 016767 173376 173354 $ERRL0P:MOV TPC.SLPERR ; SAVE THE TPC FOR LOOPING 
013036 RETURN 

.SBTTL '• FETCH SUBROUTINE 



*t*><*ttt*«t*i 



'this routine FETCHES THE MICRO INSTRUCTION AT THE SPECIFIED 
ADDRESS BY DOING A MAINTENANCE RETURN TO THAT ADDRESS. 

*«**s**«****'^t*««*«**t*ft**tt****ft****«««t*ft««*****ftft*******«.:««*« 



■ a « • * 



013040 
013044 
013046 
013052 
013056 
013060 
013064 
013066 
013070 
013072 
013074 
013100 
013104 
013106 
0^114 
0.3122 
013130 
113154 
J 131 60 
: 131 62 
013170 
013172 



116700 
100412 
066700 
017000 
005300 
105767 
100403 
006300 
000401 
005000 
060067 
105767 
100406 
066767 
017767 
052737 

LOAD! 

005767 1 

001403 

0^2737 

4$: SB 

RETUR 



1$ 



RO 



73612 

BMI 
73532 
06616 

DEC 
73573 

BMI 2$ 

ASL RO 

BR 2$ 
1$: CLR 
73554 
73553 

BMI 
73322 
73534 
02200 
D «ARG1. 
73500 

BEQ 4$ 
00200 1 
CCI OCK 
H 



3$ 

1 
1 

1 



SFETCH: MOVB ARG2.R0 ; IS ADDRESS INDEXED? 
; BRANCH IF NO 
ADD LOADAD.RD ; ADD RELOCATION FACTOR 
MOV aLOOPiB(RO) .RO ; GET CURRENT INDEX VALUE 

TSTB ARG2»1 ; IS ADDRESS ALPHA? 
; BRANCH IF NO 
; MAKE INDEX A MORD INDEX 

RO ; NO INDEXING SO CLEAR INDEX 
2$: ADD RO.ARGl ; INDEX THE ADDRESS 

TSTB ARG2*1 ; IS ADDRESS ALPHA? 
: BRANCH IF NO 
73540 ADD RELOC.ARGl ; ADD RELOCATION FACTOR 
73532 MOV aARGl.ARGl : GET THE WCS ADDRESS 

73032 3$: BIS *MNTRTN*CLRUWRC .if CONMCR ; SET MAINTENANCE RETURN 
*USCSTIC ; PUT THE ADDRESS ON THE MICRO STACK 

TST ARG3 ; CLEAR ROM NOP? 
; BRANCH IF NO 
73032 BIC #CLRUMRD.a#CONMCR ; CLEAR ROM NOP 
; POP THE USTACK INTO THE PC SAVE 



SB- 



FLOAT ONE SUBROUTINE 



.l*tlr«**t*t*t** 



t*<*t*********t«**«*«********t**ft*«B«ttfta*tS*«t**t* 



THIS ROUTINE PLACES A ONEd) IN THE BIT POSITION OF THE SPECIFIED 
DATA WORD i32 BUS). ACCORDING TO THE CURRENT VALUE OF THE INDEX. 



013174 016700 

013200 066700 

C13204 317000 

C13210 0127Q2 

C13214 0D5CC1 

C13216 C0530C 

01322C 001-103 



17345.6 $FLTONE:MOV AR62.R0 : GET INDEX INTO INDEX FABLE POINTER TBI 

n340D ADD LOADAD.RO ; ADD RELOCATION FACTOR 

006616' MOV aLOOPTB(RO) ,R0 ; GET THE CURRENT VALUE OF THE INDEX 

OOCOOl MOV *1.R2 ; INITIALIZE THE DATA 

•$: DEC RC : CHECK THE LOOP COUNT 
BEQ 2$ ; BRANCH IF rONZ 
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936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 

9;c 

III 
9 72 

973 

974 

975 

976 

9^7 

7 -^ 8 

"^ Q 

93 C 
981 
982 



986 

93 ~ 
98b 
9B9 



•59 1 

992 



013222 
015224 
013226 
013230 
013234 
013240 
013242 
013244 



BIT 



006302 ASL R2 ; SHIFT THE ONE(l) 

006101 ROL Rl ; THROUGH 32 BITS 

000773 BR 1$ ; CONTINUE 

016703 173420 2$: MOV ARGl .R3 : GET THE ADDRESS OF THE DATA 

066703 173174 ADD REL0C.R3 : ADD THE RELOCATION CONSTANT 

010223 MOV R2.(R3)* ; PUT THE PATTERN IN THE DATA WORDS 

010113 MOV R1.(R3) ; 



RETURN 



EXIT 



■SBTTL " FLOAT ZERO SUBROUTINE 



.**«t*t* 



******t*«««**t*«t*t*«*«**t**t*****t«*«ftt«*****t*t*t*ft**ttt«t* 



THIS ROUTINE FLOATS A ZERO(O) THROUGH A FIELD OF ONES(l). THE 
DATA WORD MUST BE 32 BITS HIDE. 



.t*tt*>*t«>tt; 



t*tftft**** 



**t***«t: 



******(***«****t*tt**>t«>***: 



*««*«* 



013246 
013252 
013256 
013262 
013266 
013272 
013274 
013276 
013300 
013302 
013304 
013306 
013312 
013316 
013320 
013322 



016700 
066700 
017000 
012702 
012701 
005300 
001404 
000261 
006102 
006101 
000772 
016703 
066703 
010223 



010 



113 

RETi 



173404 
173326 
006616' 
177776 
177777 
1$: DEC 

BEQ 2$ 

SEC 

ROL R2 

ROL Rl 

BR 1$ 
173342 
173116 

MOV 

MOV 
JRN 



THE INDEX 



$FLTZRO:MOV ARG2,R0 ; GET INDEX INTO INDEX TBL POINTER TBL 
ADD LOADAD.RO ; ADD RELOCATION FACTOR 
MOV aLOOPTB(R0).R0 : GET THE CURRENT VALUE OF 
MOV #177776. R2 : INITIALIZE THE FIELD OF I'S 
MOV f-l.Rl ; 

RO : CHECK THE LOOP COUNT 
; BRANCH IF DONE 



; SHIFT THE ZERO BY A BIT POSITION 
; 32 BITS WORTH 
; CONTINUE 
2$: MOV ARG1.R3 ; GET THE ADDRESS 
ADD REL0C.R3 ; ADD TEH RELOCATION 
R2,(R3)* ; SAVE THE FIELD OF I'S 
R1,(R3) : 
EXIT 



OF THE DATA 
CONSTANT 



SBTTL • IF ERROR SUBROUTINE 
THIS ROUTINE DUES THE FOLLOWING: 



t * t « * * t 



«t*t*tt«**t*tt*t*tt**«* 



:h 



"HE 



TH 

TjJ 

PFD 
TH 

HI' 
TH 

ORE 
AN 

CGN 
TH 
1^0 



ECKS THE ERROR FLAG AND IF NOT SET THE INTERPRETER 

CONTINUE StaUENTIAL EXECUTION. 

OUING ONLY OCCUR IF THE ERROR FLAG IS SET 

E BELL' FLAG IS SET. THE BELL WILL BE RUNG. 

t NER FLAG IS NOT SET. THE ERROR MESSAGE WILL 



E 
SS 



HA! T 
FOR 

LOOP 
IN L 

:SOi_AT 
ARGUM 
5PFCI 

r-. '- T 

: uf- i 

'1 H' "^ T it M 



D- F 
OPER 

■■ FL 
OCAT 
ION 
ENT 

FIED 
HE A 
f SF 



LAG I 
ATOR 
AG IS 
ION ■• 
ROUTI 
OF TH 
ISOL 

eovE 

iUENT 



BE 



S SET. EXECUTION WILL GO TO THE DIAGNOSTIC 
INTERVENTION. 

SET. THE RETURN TPC WILL BE SET TO THE 
$LPERR". 

NE IS SPECIFIED. (DETERMl 

E ' IFERR" MACRO) THE TPC 
ATION ROUTINE ADDRESS. 



;nED BY THE 
WILL BE SET 



CONDITIONS 
lAL EXECUT 



ARE 

ION. 



SATISFIED. THE INTERPRfcTEft 
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993 
994 
995 
996 
997 
998 
999 
1000 

'. r C! 
ico2 

1003 
1004 
1305 
1006 
1007 
10 08 
1009 

laio 

1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
lu23 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
! 034 

1 u Jb 

:U36 



•tt*«tt***« 



013324 
013330 
013332 
013340 
013342 
013344 
013350 
013352 
013360 
013366 
013370 
013372 
013400 
013406 
013414 
013422 
01343C 
013432 
013436 
013442 
013450 
013452 
013460 
013462 
013470 
013476 
013500 
013506 
013510 
013516 
013520 
013524 
013526 
013532 
013534 
01354 
0135^4 
0135^0 



tt«itit****t***tt***t«i**t***»*«**tt*«*«t<*itt*t**tt 



«***(* 



105767 
001505 
032767 
001401 

CAL 
105767 
0U1447 
016767 
032767 
001401 

RIN 
016767 
016767 
162767 
166767 
032767 
001004 

TYP 
004767 
032767 
001407 
E2ER 

CAL 

MTP 
032767 
001410 
026767 
001016 
016767 
000412 
105767 
001407 
016700 
100404 
066700 
010067 
105067 

RET 



173056 

BEQ 

040000 

LMICMON 

173037 

BEQ 

173054 

000020 

BEQ 

GBELL ; 

173256 

173026 

000006 

173014 

000010 

BNE 

EERR ; 

174064 

000001 

BEQ 

R: MFPS 

LMICMON 

S $P5W 

000004 

BEQ 

172726 

BNE 

172676 

BR E 

172663 

BEQ 

173124 

BMi 

172674 

172666 

172^3^ 

URN 



SIFERR: TSTB SERFLG : 
ENDERR ; BRANCH IF NO 

^73066 BIT fCTRLC.SHR 
50$ ; BRANCH IF NO 



ANY ERRORS? 

; CONTROL C FLAG SET? 



WAS THERE AN ERROR THIS LOOP? 



; SAVE THE TEST 
BELL ON ERROR? 



50i: TSTB $ERFLG*1 ; 

CHKLOP ; BRANCH IF NO 
173326 MOV TPC.ERRCON 
173040 BIT JBELL.SHR 

1$ ; BRANCH IF NO 
TYPE A BELL IF IT'S TIME 

173202 1$: MOV ARG1.$ITEMB ; GET THE MESSAGE 
173006 MOV TPCSERRPC : CET THE ERROR TPC 
173000 SUB i6.$ERRPC ; BACK IT UP TO THE CALL 
172772 SUB RELOC.SERRPC ; SUBTRACT THE RELOCATION 
172776 BIT »NER.SWR ; INHIBIT ERROR TYPEOUT? 

6$ : BRANCH IF YES 
GO TYPE THE ERROR MESSAGE 



PC FOR ERROR CONTINUE 



NUMBER 



:ONSTANT 



ERROR DATA 

; HALT ON ERROR 



DETECTION? 



JSR PC.TYPDAT ; TYPE THE 
172756 6$: BIT *HALTD.SWR 
CHKlCP ; BRANCH IF NO 
$PSH ; SAVE THE PSW 

; GO TO THE MICO DIAGNOSTIC MONITOR 
: RESTORE THE PSW 

172730 CHKLOP: BIT fLOOP 
4$ : BRANCH IF NO 

173200 CMP TPC.ERRCON ; 
ENDERR ; BRANCH IF NO 

172714 MOV ILPERR.TPC ; 
NDERR 

4$: TSTB $ERFLG*1 ; WAS THERE AN ERROR THIS LOOP? 
ENDERR ; BRANCH IF NO 

MOV ARG2.R0 
ENDERR ; BRANCH 
ADD RELOCRO 
MOV RO.TPC : 



,SWR ; LOOP ON ERROR? 
AT THE CORRECT ERROR CALL? 
SET THE TPC TO THE ERROR LOOP ADDRESS 



; JUMP 

IF NO 
; ADD RELOCA 

SET THE TPC 



TO ISOLATION ROUTINE? 



ENDERR: CLRB SERFLGM 



'ION CONSTANT TO TAG 
TO THE TAG ADDRESS 



ADDRESS 



-oBml iN.i.i^LiZt iiUBKuUTlNE 

,,t ttsaitts* It* tt tv»ft«tttt>t««tttt«tt^t*«t«»tt*t«««tt tttt*t«lt4**k«*t 

i'lHlS ROUTINE INITIALIZES THE STAR CPU BY SETTING THE iNil BIT 
; IN THE HCR HtGISTtS. 



041 
G42 
943 

C:AA 



I I t 1 I ; t I 



t(tltt)tt*tt««tBtJttftlttltt**l***ttt*fl«t*lt*t«*tl 






. Jii U<i 



V i 



!1 TPj /' 

H :: T 'j K N 



t ■ * t « • 



173032 $INIT: PIS f I N I T«CLRUWRD*SBC , a^CONMCfi 

17J032 BIC »lNIT,a«CONMCR 

■73032 BIS fPROCttD.afCQNMCR ; ENSURE Ci CCK IN CPTQ 



::4; 



" \ ► R , 



S'JBhC'j T I Nf 
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1107 
1108 
1109 
1110 

nil 

1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 



013730 
013734 
013736 
013742 
013746 
013750 
013752 
013760 
013762 
013770 
013772 
013774 
013776 
014000 
014004 
014010 
014014 
014020 
014024 
014044 



116700 

100420 

066700 

0170C0 

005300 

0063&0 

126727 

002404 

126727 

003403 

006300 

000401 

005000 

066700 

066700 

166700 

116701 

042701 
LOAD 
RETU 



172723 
BMI 

172642 

006616 
DEC 
ASL 

172700 
BLT 

17267 

bl: 

3$: 

BR 
1$: 
172650 
172424 
172570 
172636 
177400 
ID RO. 
RN 



$LDIDRE:MOVB ARG2*1 .RO ; IS DATA INDEXED? 
1$ . BRANCH IF NO 

ADD LOADAD.RO ; ADD RELOCATION FACTOR 
MOV aLOOPTB(RO) .RO ; GET CURRENT INDEX VALUE 
RO ; MAKE IT A WORD INDEX 
RO ; ... 

000040 CHPB ARG2.#USCSTK ; IS THE ID REGISTER ONLY 16 BITS WIDE? 
3$ ; BRANCH IF NO 

000042 CMPB ARG2.#USCADR ; 15 THE ID REGISTER ONLY 16 BITS WIDE? 
2$ ; BRANCH IF YES 
ASL RO ; HAKE IT A LONG WORD INDEX 
.'$ ; 
C.LR RO ; NO INDEXING SO CLEAR INDEX 

2$: ADD ARGl.RO ; GENERATE THE ADDRESS OF THE DATA 
ADD RELOC.RO ; ADD THE RELOCATION FACTOR 
SUB LOADAD.RO ; LOADID MACRO ADDS LOADAD AGAIN 
MOVB ARG2.R1 ; GET ID BUS REGISTER ADDRESS 
BIC #177400. Rl : 
Rl : LOAD THE REGISTER 



.SBTTL ■■ LOOP SUBROUTINE 

THIS ROUTINE INITIALIZES THE LOOP TABLE WITH THE FIRST VALUE. 
THE LAST VALUE. THE INCREMENT VALUE. AND THE LOOP ADDRESS. 



014046 
014052 
014054 
014060 
014064 
014070 
014074 
014100 
014104 
014110 
014112 
014116 
014122 
014130 
014134 
014140 
014142 
014152 
014156 
014162 
014166 
014170 
014172 
014176 
014200 
014202 



116700 
010002 
066700 
016000 
016720 
062702 
066702 
016712 
105767 
100007 
016701 
066701 
017167 
016720 
005767 
001477 
RD 
016705 
012704 
032705 
001411 
005204 
032705 
001405 
005204 
0327D5 



172602 

MOV 

172524 

006616 

172570 

006610 

172504 

172554 

172545 

BPL 

172540 

172462 

006616 

172522 

172522 

BEQ 

IDREG *U 

172306 

OOOOOl 

000040 

BEQ 

INC 

OOOIOO 

BEQ 

INC 

000200 



SLOOP: MOVB ARGl .RO ; GET INDEX INTO LOOP TABLE POINTER TABLE 
R0.R2 : SAVE IN R2 

ADD LOADAD.RO ; ADD RELOCATION CONSTANT 

MOV LOOPTB(R0).R0 : GET THE ADDRESS OF THE LOOP TABLE 

MOV ARG3.(R0)+ ; PUT FIRST VALUE OF INDEX IN TABLE 

GENERATE ADDRESS OF WORD TO SAVE THE COUNT 



ADD #LP1CNT.R2 
ADD LOADAD, R2 ; 
MOV ARG3.(R2) ; 
TSTB ARG1*1 : 



INITIALIZE THE LOOP COUNT FOR TYPEOUT 
.IS LAST VALUE NUMERIC? 
2$ ; BRANCH IF YES 

MOV ARG2.R1 ; GET INDEX INTO INDEX TABLE FOR LAST VALUE 
ADD LOADAD. Rl ; ADD RELOCATION FACTOR 
172526 MOV aLOOPTBCRl ) .ARG2 ; GE"! VALUE OF THE LAST VALUE OF THE LOOP 
2$: MOV ARG2.(R0)+ ; PUT LAST VALUE OF INDEX IN TABLE. 
TST ARG4 ; IS LOOP SIZE DEPENDENT? 
60$ : BRANCH IF NO 
SCDAT 

MOV RDIDL0,R5 
MOV #1 ,R4 

BIT «40.R5 ; MORE THAN IK? 
75$ : BRANCH IF NO 
R4 ; COUNT THE 6TH K 

BIT #100. R5 ; IS THERE A 7TH K? 
75$ ; BRANCH IF NO 
R4 ; COUNT IT 

BIT #200. R5 ; 8TH K? 



GET CONTENTS OF ID REG 
INIT THE SIZE TO IK 
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1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1138 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
120 
1201 
1202 
1203 
1204 
1205 
1206 
120/ 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
i::20 



D14206 001401 
014210 005204 
014212 010467 



BEQ 

INC 

172474 



75$ ; BRANCH IF NO 
R4 ; COUNT IT 

75$: MOV R4.HCSSIZE 



SAVE THE SIZE 



014216 
014222 
014230 
014232 
014234 
014236 
014244 
014246 
014252 
014254 
014262 
014264 

014270 
014272 
014300 
014302 
014306 
014310 
014312 
014316 
014320 
014322 
014324 
014326 
014330 
014332 
014334 
014336 
014340 
014344 
014352 
0H354 
014362 
014366 



012705 
022767 
001002 
005005 
000415 
022767 
001003 
012705 
000406 
022767 
0^11002 
012705 

010002 
026060 
002404 
162702 
011204 
000403 
162702 
011204 
010403 
006204 
006204 
005305 
100402 
160403 
000774 
010312 
012720 
026060 
002403 
012760 
016710 
RE 



IF NO 



000003 70$: MOV I3.RS ; INIT 

000004 172462 CMP f4.HCSSIZE 
BNt 10$ ; BRANCH 
CLR R5 
BR 50$ 

000003 172446 10$: 
BNE 20$ ; BRANCH 

000001 MOV fl.R5 
BR 50$ 

000002 172430 20$: 
BNE 50$ ; BRANCH 

000002 MOV f2.R5 



VALUE 
; ARE 



CMP *3.HCSSIZE 
IF NO 



CMP #2,WCSSIZE 
IF ONLY ONE K 



FOR WCS SIZE EQL 
THERE 4K OF WCS? 



3 K WCS? 



IK 



2 K? 



MOV 
17 
5$ 

(R2 



50$: 
177774 

BLT 
000004 

MOV 

BR 3$ 
000002 5 

HOV (R2 
3$: MOV 

ASR R4 

ASR 
30$: 

BMI 

SUB 

BR 



R4 
DEC 
40$ 
R4. 
30$ 



40$: 
OOOOOl 
177772 
BLT 
177777 
172044 
TURN 



MOV 
6 
17 
1$ 

17 
1 



R0.R2 ; GET BASE ADDRESS OF TABLE 
7776 CMP -4(R0),-2(R0) : IS FIRST LESS THAN LAST? 

; BRANCH IF YES 
SUB #4.R2 ; GET ADDRESS OF VALUE 
).R4 ; GET FIRST VALUE 

$: SUB #2.R2 ; GET ADDRESS OF LAST 
).R4 : GET LAST VALUE 
R4.R3 ; SAVE MAX VALUE 
; DIVIDE 8Y 4 

RS".- CHECK IF DONE ADJUSTING LOOP VALUE 
; BRANCi: IF YES 
R3 : ADJUST VALUE 

; CONTINUE 

R3.(R2) ; STORE THE MEW VALUE 
0$: MOV #1.(R0)* : SET POSITIVE INCREMENT IN TABlE 
7774 CMP -6(R0) .-4{P0) ; IS FIRST LESS THAN LAST? 

: BRANCH IF YES 
7776 MOV f-l.-2(R0) ; PUT NEGATIVE INCREMENT IN TABLE 
$: hOV TPC.'.RO) ; PUT LOOP TPC IN TABLE 



.SDTTL •■ MA'SK SUBROUTINE 

'this ROUTINE MASKS ^HE SFECIFIED LOCATION UITH THE SPEriFIED 
MASK. - 

014370 066767 172040 172256 $MASK: ADD RElOC.ARGI ; GENERATE THt ADDRESS CF THE DATA 

014376 066767 172032 172252 ADD REL0C.ARG2 : GENERATE THE ADDrES", OF th£ MASK 

0144v'4 017700 172246 MOV iARG2,R0 ; GET THE MASK 

014410 OOSl COM RO ; 

0t4412 0^0077 172236 BIC RO.oiARGl ; MASK THE DATA 

014416 RETURN 



.SBTTl 



MOVE SUBROUTlNh 
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1221 
1222 
1223 
1224 
1225 
1226 
1227 
12Z8 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
12^6 
12^:7 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
12 72 
1273 
1274 
1275 
1276 
1277 



/*tt*«t<i*>t**^tt*t*>**t*t**t*tt*<t**tt«*«t** 



*tt**t**k**t«t>i«*it»*i.*j» 



THIS ROUTINE MOVES U dITS OF DATA POINTED TO BY ARGl (INDEXED BY 
ARG2) INTO THE LOCATION POINTED TO BY ARG3. 



X»<«tlt>t>*«***ltC**l**t«**(ttt**«**tt*«tt***tl**(*t>*>*t*t** 



ft»««*ttl&-i: 



014420 
014^26 
014432 
C14434 
014440 
014444 
CI 4446 
'^14450 
014454 
014456 
014460 
014462 
014464 
014470 
014476 
014504 



065767 
1167C0 
100413 
066700 
017000 
005300 
006300 
105767 
001403 
006300 
000401 
005C00 
060067 
066767 
017777 
RF 



1$ 



RO 
RO 



172010 

172224 
BMI 

172144 

006616 
DEC 
ASL 

172203 
BEQ 2$ 
ASI RO 
BR 2$ 
1$: CLR 

172164 

i:7l74u \ 

172152 1 
TURN 



72226 SHOVE: ADD RELOC.ARGl ; RELOCATE SRC POINTER 
MOVB ARG2.R0 ; IS SRC DATA INDEXED? 

: BRANCH IF NO 
ADD LOADAD.RO ; ADD RELOCAHCX FACTOR 
MOV a;.OOPTB(R0).R0 ; GET CURRENT INDEX VALUE 

; HAKE INDEX A MORD INDEX 
TSTB ARG2*1 ; IS DATA TYPE LONG ■ 
; BRANCH IF NO 
; HAKE I HO" A 32 BIT INDEX 

Rn 

2$: ADD RO.ARGl ; OFFCET SRC ADDPES? 

72162 ADD REL0C.ARG3 ; RELOCATE DST POINTER 

72154 MOV aARGl.aARG3 ; MOVE THE SRC 10 THE bST 



SBTTL • NEW TEST SUBROUTINE 

THIS ROUTINE PERFURHS THE FOLLOWING FUNCTIONS: 

1) CHECKS THE LOOP ON SPECIAL TEST FLAG. IF SET, IT DETERMINES 
IF THE SPECIFIED TEST IS FOREWAPO OR BACKWARD FROM THE CURRENT 
TEST. It- FOREHARD. THE TPC IS SET TO THE NEXT NEMTST STATEMENT. 
IF BACKWARD. THE FILE IS CLOSED AND REOPENED AND THE TPC 
IS SET TO THE NEWTST STATEMENT OF THE FIRST TEST. 



014506 032767 

014514 001404 

014516 042767 
014524 CALLMICMON 

014526 005067 171646 

014532 032767 

0i4540 001440 

011542 02676^ 

014550 0014' 



CONTROL C PLAG SET? 



040DC0 171712 $N£WTST:BIT #CTRLC.SHR 

BEQ 12$ ; BRANCH IF NO 
040000 171702 BIC fCTRLC.SWR ; 

; GO TO THE MICO DIAGNOSTIC MONITOR 

12$: CLR SUBTST ; INITIALIZE THE SUBTEST 
171666 BIT #LOST.SHR ; LOOP ON SPECIAL TEST? 
BEQ 8$ : BRANCH IF NO 
1A24 1^1626 CM" $TSTNM.TESTNO 
BEU 4$ ; BRANCH IF YES 



0C0200 



ON THE TEST YET? 



GET THE ADDRESS OF THE NEXT NEWTST STATEMENT AND 60 TO i 



014552 0n767 
C1456G 062767 
314566 066767 



172020 



U I' U 



U^ 



171630 6$: MOV aTSTPTR ,$LPADR : GET ADDRESS OF NEXT NEwTST 
172010 ADD »2,TSTPTR ; INCREMENT THE T^ST POiNTER 
171642 171614 ADD RELOC,$LPADR 
014574 005067 171606 CLR $ERFLG 



ADD RELOCATION CONSTANT TO NEWTST ADR 
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1278 
1279 
128G 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1.304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 



0146QU 
014604 



U05067 
000464 



172100 
BR 3$ 



CLR $CHKFLG 
; EXIT 



WE FOUND THE CORRECT TEST SO SET THE LOOP ADDRESSES AND START LOOPING 



014606 
014614 
014622 
014630 
014632 
014640 

014642 
014650 
014652 

014660 
014666 
014670 
014676 
014700 
0147C2 
014706 
014710 
014716 
014720 
014722 



014724 
014730 
CI 4734 
014742 
014750 
014756 

014764 
014772 
015000 
015004 
015010 
015014 



016767 172G66 171574 4$: KOV LOSTAD .$LPADR : SET LOOP ADDRESS 

C16767 172060 171570 MOV LOSTAD .$LPERR ; SET THE DEFAULT ERROR LOOP ADDRESS 

03276/ 004000 171576 BIT fCONT.SWR ; IS CONTINUE FLAG SET? 

001460 BEQ 5$ ; BRANCH IF NO 

042767 004200 171566 BIC #CONT*LOST.SHR ; CLEAR lOST FLAG 

000454 BR 5$ ; EXIT 

032767 004000 71556 8$: BIT fCONT.SWR ; CONTINUE FLAG SET? 

001403 BEQ 2^>% ; BRANCH IF NO 

042767 004100 171546 BIC #CONT*LOSS .SHR ; CLEAR LOSS FLAG 

032767 020000 171542 22$: BIT #TSTSPAN ,SWR1 ; WAS A TEST SPAN SPECIFIED' 

001416 BEQ 11$ ; BRANCH IF NO 

926767 171476 171500 CMP $TSTNM.TESTNO : STARTED THE FIRST TEST YET? 

002725 BLT 6$ ; BRANCH IF NO 

001003 BNE 20$ ; BRANCH IF PAST IT 

005267 172012 INC SPANFLAG : EXECUTED FIRST TEST YET? 

001737 BEQ 4$ ; BRANCH IF NO 

026767 171460 171454 20$: CMP ENDS°AN .$TSTNM ; COMPLETED LAST TEST YET? 

001002 BNE 11$ ; BRANCH IF NO 

21$: CALLMICMON ; DONE 
000776 BR 2i$ ; DON'T ALLOW CONTINUE 



WERE NOT LOOPING ON SPECIAL TEST 
LOOP ADDRESSES TO THIS TEST. 



005067 
005067 
01676:" 
016767 
062767 
016767 

; TEST 
016767 
016767 
005067 
005067 
005067 



171456 

171750 

171472 

171464 

GO0O02 

171450 

IS ASCERTED. 

171664 

171412 

171604 

171602 

171600 



11$: 
CLR 
171446 
171442 
171620 
171714 



CLR $ERFLG 
$CHKFLG : 



SO SET THE 



; INITIALIZE THE ERROR FLAG 
INITIALIZE THE VBUS CHECK FLAG 



MOV TPC.$LPADR .- SET THE LOOP ADDRESS 
MOV TPC.$LPERR ; SET THE DEFAULT ERROR LOOP ADDRESS 
ADD #2.TSTPTR ; INCREMENT THE TEST TABLE POINTER 
3$: MOV ThC. LOSTAD ; SAVE THIS ADDRESS INCASE LOOP ON SPECIAL 



MOV 



RETURN 



171400 

171432 5$: MOV 
7$: CLR LPICNT 
CLR LP1CNT»2 
CLR LP1CNT*4 
EXIT 



ARG1,$TSTNM ; 
$LPADR,TPC 



UPDATE THE TEST NUMBER 
: SET THE TEST PC 



S3TTL • NOP SUBROUTINE 

♦ 

THIS ROUTINE DOES NOTHING. 

,«***t *t*t* * t ««« ****«*«*>t«flt*t*tt**tttit4*«*itttt****ti*t*tt4t***at*t 

t 

015016 $N0OP: RETURN 
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1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 

1344 015020 

1345 015030 
1346 

1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 



SBTTL •■ READ ID BUS SUBROUTINE 

'this ROUTINE READS THE SPECIFIED ID BUS hC^ISTER m«D SAVF.S 
IT IN LOCATIONS "IDLOW" AND "IDHIGH". 

READ THE SPECIFIED REGISTER 



$READID:RDIDREG ARGl 
RETURN 



.SBTTL " REPORT SUBROUTINE 

THIS ROUTINE IS USED TO TYPE THE NAMES OF THE FAILING MODULES 
WHEN DIAGNOSIS IS FINISHED. IT PERFORMS THE FOLLOWING FUNCTIONS: 

1) IF THE "NER" FLAG IS CLEAR. THE SPECIFIED LIST OF 
MODULE NAMES IS TYPED. OTHERWISE NOTHING IS TYPED. 

2) IF THE "HALTI" FLAG IS SET. EXECUTION WILL RETURN 
TO THE DIAGNOSTIC MONITOR. 

3) IF THE "LOOP" FLAG IS SET. THE TPC WILL BE 
SET TO THE CONTENTS OF "$LPERR" . OTHERWISE IT 15 
UNCHANGED. 



NO ERROR REPORT? 
ISOLATION? 



1365 

1366 01i032 032767 30010 171366 $REPORT:BIT fNER.SWR 

1367 015040 001007 BNE 3$ ; 3RANCH IF YES 

1368 015042 TYPEMOD #ARG1 ; GO TYPE THE MODULE NAMES 

1369 015060 332767 000002 17134C 3$: BIT iHALTl .SWR ; HALT ON 

1370 015066 001401 BEQ 4$ ; BRANCH IF NO 

1371 015070 CALLMICMON ; GO TO THE MICRO DIAGNOSTIC MONITOR 

1372 015072 032767 000004 171326 4$: BIT /LOOP.SWR ; LOOP ON ERROR? 

1373 015100 091404 BEQ 5$ ; BRANCH IF NO 

171304 171322 MOV SLPERR.TPC ; SET TPC TO ERROR LOOP ADDRESS 

BR 6$ ; EXIT 
000040 171306 5$: BIT fERABT.SWR ; IS THE ERROR ABORT FLAG SET? 

BNE 7$ ; BRANCH IF YES 
i71£60 171302 MOV ERRCON.TPC : SET THE TPC 
171252 CLR $ERFLG : CLEAR THE ERROR FLAG 
171544 CLR SCHKILG ; AND THE VBUS ERROR FLAG 

BR 6$ 
171430 171262 7$: M0\- aTSTPTR.TPC : SET TPC TO ADDRESS OF NEXT 'NEWTST' 
171260 :71254 ADD RELOC.TPC ; ADD RELOCATION FACTOR 
; EXIT 



1374 015102 016767 

1375 015110 00C422 

1376 015112 032767 

1377 015120 001010 

1378 015122 016767 

1379 015130 005067 

1380 015134 005067 

1381 0151^0 000406 

1382 015142 01776^ 

1383 Q151S0 06676? 

1384 015156 6$: ftETURN 

13b5 

1386 

1387 .SBTTl RESET SUBROUTINE 
1 308 ..••tttititti-tttttttttttti 

1389 
1390 
1391 



••••«ii>t><ittt<t<>*<«t«t<«tt«tt>>ft 



'HIS HOUTiNE tXtCUTES AN LSI-ll RESET INSTRUCTION 
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1392 
1393 
1394 
015160 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 

1446 
1447 



t**«***t*** 



015160 $RESET: RESETS 
104020 EMT RSSET 
015162 RETURN 



SBTTL ■■ SET PSH SUBROUTINE 

♦ 

THIS ROUTINE IS USED TO SET A PRIORITY LEVEL IN THE LSI-il PROCESSOR 
STATUS WORD. 

015164 $SETPSW:MTPS ARGl ; SET THE LEVEL 
015172 RETURN 

-SBTTL " SET VECTOR ROUTINE 

'this ROUTINE LOADS THE ADDRESS SPECIFIED BY ARGl WITH THE ADDRESS 
OF THE EXPECTED TRAP ROUTINE. 

**>*****ttt*tttttttti*t*«t*t«**«tt»*ttt***«**t****t************t<**t 

015174 012777 010314' 171452 SSETVECiMOV JfTRAP.aARGl ; PUT TRAP ADDRESS IN IT 
015202 066777 171576 171444 ADD LO.'^DAD .aARGl : ADD RELOCATION CONSTANT 
015210 012767 000401 171170 MOV #401 .SERFLG ; SET THE ERROR FLAG 
015216 RETURN 

-SBTTL ■' SKIP SUBROUTINE 

THIS ROUTINE SETS THE TPC TO THE SPECIFIED ADDRESS. 

015220 016767 171430 171204 SSKIP: MOV ARGl. TPC ; GET THE ADDRESS TO SKIP TO 
015226 066767 171202 171176 ADD RELOC.TPC ; ADD THE RELOCATION CONSTANT 
015234 RETURN 

.SBTTL " SKIP IF ERROR SUBROUTINE 

THIS ROUTINt SETS THE TPC TO THE SPECIFIED ADDRESS IF THE 
ERRCR FLAG IS SET. 

,lt>tt<<<it>t<tttlt«t>t«t<t<tii««i«>t«ttt>ltt<***at>t<ttttt**>«tt«*t* 

015236 SSKIPERROR: 

015236 105767 171144 TSTB SERFLG ; IS THE ERROR FLAG SET' 

015242 001406 BEQ 1$ ; BRANCH IF NO 

015244 016767 171404 171160 MOV ARGl. IPC ; GET THE ADDRESS TO SKIP TO 

015252 066767 171156 171152 ADD RELOC.TPC ; ADD THE RELOCATION CONSTANT 
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1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 



015260 



1$: RETURN 



.SBTTL " SP ADDRESS GENERATE SUBROUTINE 

'this ROUTINE GENERATES A SPA FIELD IN THE SPECIFIED MICRO INSTRUCTION* 
EQUAL TO THE CURRENT LOOP COoNT MINUS 1. 

«»**»**«»»««««««»««»t««»««»t*«»»«««»««««««»t»«»«t«»«»»««*««««»«« 



015262 016700 

015266 066700 

015272 062700 

015276 016701 

015302 066701 

015306 017101 

015312 005301 

015314 006301 

015316 006301 

015320 006301 

015322 042710 

015326 050110 



171366 

171142 

000004 

171354 

171276 

006616' 
DEC Rl 
ASL Rl 
ASL Rl 
ASL Rl 

000170 



015330 



RETURN 



BIS Rl .(RU) 
: EXIT 



$SPAGEN:MOV ARGl .RO ; GET ADDRESS OF MICRO INSTRUCTION 
ADD RELOC.RO ; ADD RELOCATION FACTOR 

ADD *4.R0 ; SELECT THE 3TH 16 BIT WORD (KMX FILED STARTS AT BIT35) 
MGV ARG2.R1 ; GET INDEX INTO INDEX TABLE POINTER TABLE 
ADD LOADAD.Rl ; 
MGV aLOOPTBCRD.Rl ; GET THE CURRENT INDEX VALUE 

; ADJUST 

; PUT IN SPA FIELD POSITION 



Bi: #170. (RO) ; CLEAR CURRENT SPA FIELD 



INSERT NEW FIELD VALUE 



SBTTL ■• SUBTEST SUBROUTINE 

'this ROUTINE INCREMENTS THE CURRENT VALUE OF THE SUBTEST COUNTER. 



ttlt«<tttt<>t*>t*>t*t*t«<rt«tt«>t>**tt**I(*t«****t(t*****t****t*>«t«* 



015332 
015336 
015342 
015346 
015352 
015356 
015362 
015366 
015372 
015376 
015402 
015406 
015412 



005267 
005067 
005067 
005067 
005067 
012700 
066700 
010037 
012700 
066700 
010037 
010037 
RE 



171042 
171246 
171244 
171242 
171030 
010324 
171216 
000004 
010466 
171202 
000300 
000304 
TURN 



$SUBTEST:INC SUBTST ; INCREMENT THE COUNTER 
CLR LPICNT ; CLEAR THE LOOP COUNTS FOR TYPEOUT 
CLR LP1CNT*2 
CLR LP1CNT*4 
CLR SERFLG ; 
HOV #CATCH.R0 
ADD LOADAD.RO 
HOV R0.a#4 ; 
»CATCHI .RO 



MOV 

ADD LOADAD.RO 

MOV R0.a/300 ; 

HOV R0.a#304 



AND THE ERROR FLAG 

: GET ADDRESS OF TRAP CATCHER 

: ADD RELOCATION FACTOR 

SET THE TRAP TO 4 VECTOR 

; GET ADDRESS OF INTERRUt'T CATCHER 
; ADD RELOCATION FACTOR 



SBTTL TEST V BUS SUBROUTINE 

THIS ROUTINE TESTS THE SPECIFIED BIT OF THE V BUS TO BE 
THE SAME AS THE SPECIFIED VALUE. IF THEY ARE DIFFERENT. THE 

ERFLG' AND THE CHKFLG" ARE SET. 
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1506 

1507 015414 005067 171264 $TSTVB: CLR SCHKFLG 

1508 015420 004767 172620 JSR PC.SREADVB ; GET THE V BUS 

1509 015424 016700 171224 MOV ARGl.RO ; GET THE ADDRESS OF THE BIT TABLE 

1510 015430 066700 171000 ADD RELCC.RO ; ADD THE RELOCATION FACTOR 

1511 015434 016701 171216 MOV ARG2.R1 ; IS IT INDEXED? 

1512 015440 100414 BHI 2$ ; BRANCH IF NO 

1513 015442 066701 171136 ADD LOADAD.Rl ; ADD RELOCATION CONSTANT 

1514 015446 017101 006616' MOV aLO0PTB(Rl ) .Rl ; GET THE CURRENT INDEX 

1515 015452 005301 1$: DEC Rl ; DONE INDEXING? 

1516 015454 001406 BEQ 2$ ; BRANCH IF YES 

1517 015456 011002 MOV (R0).R2 ; GET THE SIZE OF THIS ENTRY 

1518 015460 006302 ASL R2 ; CORRECT FOR WORD INDEXING 

1519 015462 060200 ADD R2.R0 ; GENERATE ADDRESS CF NEXT TBL ENTRY 

1520 015464 062700 000002 ADD #2.R0 ; 

1521 015470 000770 BR 1$ ; CONTINUE 

1522 015472 012001 2$: MOV (R0)*.R1 ; GET THE f OF ENTRYS IN THIS TABLE 

1523 015474 012702 007164' 3$: MOV IVBBUFF.R2 ; GET START ADDRESS OF VB BUFFER 

1524 015500 066702 171100 ADD L0ADAD.R2 ; ADD RELOCATION FACTOR 

1525 015504 005067 170706 CLR GOODDAT ; INITIALIZE LOCATION FOR EXPECTED VALUE 

1526 015510 116003 000001 MOVB 1(R0).R3 ; GET BIT ID ADN VALUE 

1527 015514 042703 177400 BIC *177400.R3 ; CLEAR SIGN EXTEND 

1528 015520 000241 CLC ; 

1529 015522 106103 ROLB R3 ; PUT VALUE IN THE C BIT 

1530 015524 005567 170666 ADC GOODDAT ; PUT VALUE IN BIT<0> OF GOODDAT 

1531 015530 006203 ASR R3 ; PUT BIT NUMBER IN BITS<6:0> 

1532 015532 042703 000200 BIC #200. R3 : ... 

1533 015536 060302 ADD R3.R2 ; SELECT THE BYTE IN THE BUFFER 

1534 015540 006303 ASL R3 : PUT BIT NUMBER IN BITS<10:4> 

1535 015542 006303 ASL R3 

1536 015544 006303 ASL R3 ; ... 

1537 015546 006303 ASL R3 ; . .. 

1538 015550 050367 170642 BIS R3. GOODDAT ; PUT IN BITS<9:3> OF GOODDAT 

1539 015554 111004 MOVB (R0),R4 ; GET THE CHANNEL NUMBER 

1540 015556 010405 MOV R4.R5 ; SAVE CHANNEL NUMBER 

1541 015560 000305 SWAB R5 ; PUT CHANNEL NUMBER IN HIGH BYTE 

1542 015562 006305 ASL R5 ; PUT CHANNEL NUMBER IN BITS<14:12> 

1543 015564 006305 ASL R5 

1544 015566 006305 ASL R5 ; . .. 

1545 015570 006305 ASL R5 ; . .. 

1546 015572 050567 170620 BIS R5. GOODDAT ; INSERT INTO GOODDAT 

1547 015576 016767 170614 170616 MOV GOODDAT .BADDAT ; COPY CHANNEL AND BIT NUMBER TO BAD DATA 

1548 015604 042767 000001 17061O BIC «1 .BADDAT ; GET READY TO INSERT RECEIVED VALUE OF BIT 

1549 015612 111205 MOVB (R2).R5 ; GET THE BYTE FROM THE BUFFER 

1550 015614 012702 000376 MOV I376.R2 ; INITIALIZE R2 TO MASK BIT 

1551 015620 005304 7$: DEC R4 ; CONVERT CHANNEL NUMBER INTO A BIT POSITION 

1552 015622 100403 BMI 8$ ; BRANCH IF DONE 

1553 015624 000261 SEC 

1554 015626 106102 ROLB R2 ; SHIFT THE MASK 

1555 015630 000773 BR 7$ ; CONTINUE 

1556 015632 000241 8$: CLC 

1557 015634 140205 BICB R2.R5 ; CLEAR THE UNWANTED BITS FROM THE RECEIVED BYTE 

1558 015636 001403 10$: BEQ 9$ ; NOW SHIFT RIGHT UNTIL THE WANTED BIT IS IN BIT POSITION 

1559 015640 000241 CLC 

1560 015642 106005 RORB R5 

1561 015644 000774 BR 10$ ; KEEP SHIFTING 
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1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
160 9 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 



015646 
015650 
015654 
015662 
015664 
015666 
015670 
015672 
015674 
015700 
015706 
015712 
015714 



006105 
150567 
02676"^ 
001004 
005720 
005301 
001301 
000410 
005067 
012767 
005267 
001775 
6$: 



9$: ROL R5 ; BRING THE BIT BACK TO 
170546 BISB R5.BADDAT ; INSERT THE 
170536 170540 CMP GGODDAT .BADDAT ; 
BNE 4$ ; BRANCH IF DIFFERENT 
TST (RO)* : BUMP RO TO NEXT TABLE 
DEC Rl ; DECREMENT THE LOOP COUNT 
BNE 3$ : CONTINUE 
BR 6$ ; ALL BITS ARE OK 



POSITION 

BIT INTO THE BAD DATA 

SEE IF EXPECTED AND RECEIVED ARE EQUAL 

ENTRY 



171010 

000401 

170772 

BEQ 

RETURN 



4$: CLR 
170500 
5$: INC 
5$ : 



DATTYPE 
MOV f401 
SCHKFLG 



; SET 16 

.$ERFLG ; 



BIT 

SET 



DATA TYPE 
THE ERROR 



FLAG 



SBTTL •■ TYPE WCS SIZE SUBROUTINE 

'this ROUTINE TYPES THE NUMBER OF UCS MODULES AS A FUNCTION 
OF THE CONTENTS OF "BADDAT" WHICH IS ASSUMED TO BE THE CONTENTS 
OF THE WCS DATA REGISTER. 



INHIBIT ERROR TYPEOUT? 

LOOPING ON THIS TEST? 



015716 STYPSIZE: 

015716 032767 OOOOIO 170502 BIT #NER.SWR 

015724 001143 BNE 5$ ; BRANCH IF YES 

015726 032767 000300 170472 BIT fLOSS*LOST .SWR 

015734 001403 BEQ 7$ ; BRANCH IF NO 

015736 005267 170754 INC SIZEFLG ; TYPED IT YET? 

015742 001134 BNE 5$ ; BRANCH IF YES 

015744 7$: TYPE *$CRLF. ASCII 

015764 032767 0O0C17 170430 BIT #17. BADDAT ; IS THERE 4 PCS MODULES? 

015772 001431 BEQ 20$ : BRANCH IF YES 

015774 TYPE #HSG3 ; TYPE ILLEGAL CONFIG. MESSAGE 

016012 TYPES /BADDAT. HEX ; TYPE CONTENTS OF DATA REG 

016032 6i TYPE fSCRLF.ASCII 

016052 CALLMICMON ; GO TO THE MONITOR 

016054 C00467 BR 5$ : EXIT 

016056 005000 20$: CLR RO 

016060 TYPE *MSG1 ; TYPE THE SIZE MESSAGE 

016076 032767 000020 170316 BIT #20. BADDAT 

016104 001011 BNE 1$ .- BRANCH IF YES 

016106 TYPES #ZERO.HEX ; TYPE A ZERO 

016126 000741 BR 6$ ; GO TO THE MONITOR 

016130 005200 1$: INC RO 

016132 032767 000040 170262 BIT #40. BADDAT ; 

016140 001401 BEQ 3$ ; BRANCH IF NO 

016142 005200 INC RO 

016144 032767 OOOIGO 170250 3$: BIT #100. BADDAT 

016152 001401 BEQ 4$ ; BRANCH IF NO 

016154 005200 INC RO 

016156 032767 000200 170236 4$: BIT #200, BADDAT ; 8TH K' 

016164 001401 BEQ 10$ 

016166 005209 INC RO 

016170 010067 170516 10$: MOV RO.WCSSIZE : SAVE THE NUMBER OF MODULES 

016174 TYPES #WCSSIZE.HEX ; TYPE THEM 

316214 TYPE #$CRLF, ASCII 



IS THE 5TH K THERE? 

IS THE 6TH K THERE? 

IS THERE A 7TH K THERE? 
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1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1642 
1643 
1645 
1646 
164? 
1648 
1649 
1650 
1652 
'654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 



016234 



5$: RETURN 



EXIT 



THE FOLLOWING LOCATION CONTROL ALGORITHM IS NECESSARY TO MAKE THE 
LENGTH OF THE HARDCORE MONITOR AN INTEGER NUMBER OF SECTORS LONG. 
THIS IS REQUIRED SO THAT WHEN THE MONITOR IS SWAPPED OUT AND EVENTUALLY 
READ BACK IN. THE TEST STREA?^ OVERLAY DOES NOT GET OVER WRITTEN. 

THE ALGORITHM ALSO DISPLACES THE BUFFER AREA FOR THE TEST STREAM 
OVERLAYS TO START AT THE LOCATION SPECIFIED BY "SENDADR" . 
SO THAT THE PARSER FILE CAN BE READ IN WITHOUT DESTROYING THE 
TEST STREAM OVERLAY. 



016236- TEMPr. 

007446 X=<TEMP-HEAD> : LENGTH OF THIS FILE 

0Cj04' X=X&177 ; IN SECTORS 

000132 X-200-X ; NUMBER OF BYTES TO MAKE EVEN SECTOR 

016236 ^lll X 

016370' T£MP=. 

007600 X=<TEMP-HEAD> 

OO6570' .^HEAD 
006570 007600 .WORD <TEMP-HEAD> 

016370 .=TEMP 

002010 Xr$ENDADR-<X*OFFSET>-200 ; NUMBER OF BYTES TO ADDRESS SENDADR 

Q1637D FILL X 



THE TEST STREAM OVERLAYS 
BYTES LONG AND A MIMIIiUM 



START HERE. THEY ARE 
OF 128 BYTES LONG. 



A MAXIMUM OF 1536 



020400 000000 
OOOGO! .END 



END: .WORD 
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ACCfINT: 


000026 


CONT = 


004D0G 


G0CHA2= 


000012 


ACCST = 


OOD027 


CONTXD: 


000007 


GOODDA 


006416R 


ACCO = 


000024 


CONTXS- 


000006 


GOTUPC 


006470R 


ACCl = 


000025 


CPURUN3 


003400 


HALTD = 


000001 


ADAOFF= 


000126 


CSBUS -- 


000050 


HAITI = 


000002 


ADAPT 


007516R 


CTRLC = 


040000 


HARDC : 


000001 


ARGl 


006654R 


DAP 


000004 


HARDCO 


OllOOOR 


ARG2 


006656R 


DATTYP 


006710R 


HCHONI: 


OOOOOO 


ARG3 


006660R 


DBLFLG 


006676R 


HEAD = 


006570R 


ARG4 


006662R 


DBP 


OOOOIO 


IBCLKS^ 


000012 


ARG5 


006664R 


DCP 


000005 


IBDAT -. 


OOOOOO 


ARG6 


006666R 


DDP 


000006 


IBICT r 


000013 


BADDAT 


n06422R 


DEP 


000007 


IBNIN : 


000011 


BELL ^ 


000020 


DICMD -- 


001000 


IBTOD -• 


000001 


BRTBL 


012424R 


DIRECT^ 


000014 


ICL 


000012 


BUSES 


007510R 


DIRERR^ 


000100 


IDADR 


006462R 


BUSOFF= 


000120 


DISPAT 


007060R 


IDBUS = 


000051 


BYL 


000044 


DNEIE -- 


000040 


IOCS -- 


173030 


BYU 


000045 


DRA 


000055 


IDCYCL= 


100000 


BIFULL^ 


000004 


D.SV -- 


000056 


IDDAT 


006460R 


BIINUS^ 


000400 


END 


020400R 


IDDATHr 


173010 


B2FULL= 


cno20o 


ENDADR 


006672R 


IDDATL: 


173006 


B2INUS= 


000040 


ENDERR 


013544R 


IDMAINr 


000200 


CAM 


000013 


ENDSPA 


006374R 


IDP 


000021 


CATCH 


010324R 


EQ. 


OOCOOO 


IDREGH= 


000001 


CATCHI 


010466R 


FRABT -- 


000040 


IDREGL= 


177777 


CATEX 


010362R 


ERRCON 


006706R 


IDHRIT= 


OCOIOO 


CCPTO -- 


000200 


ESP 


000051 


IINDX 


006624R 


CCPTl -- 


000100 


E2ERR 


013452R 


INIT -. 


010000 


CCPT2 r 


000040 


FAD 


000033 


IRC 


000020 


CCPT3 - 


000020 


FAIL 


012332R 


ISP 


000054 


CDM 


G0OO14 


FAILCHr 


000016 


ITSTPT^ 


000J04 


CEH 


000011 


FCHAIlr 


000020 


JINDX 


006634R 


CES 


000014 


FCHAI2- 


000022 


KEYBUF 


006722R 


CHAR -- 


000002 


FCHRl r 


000015 


KEYCOD 


006542R 


CHKLOP 


013470R 


FCHR2 = 


000002 


KEYERR^ 


020CO0 


CHKSWI -- 


000023 


FCT 


000034 


KEYQUE- 


0!0000 


CHI 


000001 


FILPTR 


006436R 


KINDX 


006644R 


CH2 


000000 


FIRSTC- 


OOOOOO 


KSP 


&00050 


CH3 


000000 


FLPYMS- 


003000 


LCANU. : 


000014 


CIA 


000056 


FLPYON: 


010000 


LCWRONr 


000016 


CIB 


000000 


FLPY2 -- 


OOIOCO 


LDCONSr 


000021 


Ci.K 


000026 


FLPY3 -- 


002000 


LOADAD 


006604R 


CI <FSTr 


000010 


FLPY4 -. 


003000 


LOADCNr 


000006 


CLKSLO^ 


000020 


FMH 


000031 


LOOP '- 


000004 


CLKSTpr 


000040 


FMIDHI3 


173026 


LOOPTB 


006616R 


CLRUWR: 


300200 


FMIDLO^ 


173024 


LOPF! -. 


OOOOOC 


CNVEPTr 


O00C07 


FML 


OG0032 


LOPFJ -. 


OOOOOO 


COM 


100000 


FNM -- 


0CO030 


LOPF< = 


OOOOOO 


CCMSPC 


006476R 


FPA 


010000 


LOSLNK 


006552R 


CONACKr 


0002^" 


FPDA '. 


000055 


LOSS -- 


000100 


CCNCM - 


c 1 c r 


FPSYNC 


006560R 


LOSSEC 


006554R 


CONID - 


000003 


FPYVEC 


006550R 


LOST -- 


000200 


CONMCR^ 


173032 


FP& 


OOOOIO 


LOSTAD 


006700R 


CONMCS^ 


173034 


FRl 


300020 


LPICNT 


006610R 


CONRXD-- 


000005 


GOCHAI -. 


4 


LSTFIi.r 


000001 


CCNfiXS-- 


000004 


GOCHAl r 


000006 


MAT 


000041 
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MAXCNT 


006702R 


PILR = 


000075 


MAY 


000025 


Q.SV = 


000057 


MAY16K 


007462R 


RADGET= 


OOOOIO 


HAY4 - 


000046 


RADHEX= 


000020 


MAY4K 


007442R 


RADOCT= 


OOOOIO 


MAY6 - 


000035 


RDIDHI 


006466R 


MAY8 = 


000047 


RDIDLO 


006464R 


MBA 


000054 


RDYIE = 


000100 


MCN = 


000023 


READSC= 


000004 


MDMTYPr 


000022 


RELOC 


006434R 


MDT 


000024 


RMURON= 


000015 


MIC1FL= 


002000 


ROHO = 


173000 


MIC2FL= 


004000 


ROMl - 


173002 


MNTRTN^ 


002000 


RUNFLG= 


000002 


MODADR 


006446R 


RWDQ - 


OOOOIO 


MODLNK 


006564R 


RXDNE = 


173014 


MODULE 


007370R 


RXVEC = 


000304 


MPC 


000037 


R$SET -- 


000020 


MPFC = 


000026 


R6 


1000006 


MPGOCH: 


000024 


R7 


1000007 


MPI 


000036 


SBC 


OOC002 


MPS 


000040 


SBH 


000017 


MSB 


000022 


SBICP = 


000036 


MSBE : 


000043 


SBIERR= 


000031 


MSFC = 


000032 


SBIFLT= 


00C033 


MSGA 


006502R 


SBIMAT= 


000035 


MSGB 


006510R 


SBISCM= 


000034 


MSGC 


006516R 


SBISIL: 


000030 


MSGOCH= 


000030 


SBITO = 


000032 


MSGl 


006726R 


SBL 


000016 


MSG2 


006750R 


SBR 


000046 


MSG24 


007046R 


SCBB -. 


000073 


MSG3 


006776R 


SCTSPA= 


040000 


MSG4 


007022R 


SECTNO 


006404R 


MSKFLG 


006674R 


SECTOR 


006556R 


M256K0= 


000116 


SGLINS 


010602R 


M4K0FFr 


000052 


SINST r 


00040C 


M6K0FF= 


000072 


SIR 


000016 


M64K0F: 


000114 


5IXSPC 


006534R 


NER 


OOOOIO 


SIZEFL 


006716R 


NE. 


000004 


SLFTST: 


000004 


NOCHARr 


000003 


SLR 


000076 


OFFSET^ 


006370 


SOMM = 


000100 


OPENFL: 


000^03 


SPANFL 


006720R 


OPNFLl : 


OOOUll 


SPAR£1= 


173004 


OVRADR 


006440R 


SPARE2r 


173012 


OVRBYT 


006442R 


SRCADR 


006450R 


PARSERr 


OOOOIO 


SSP 


000052 


PASCNT 


006546R 


STADR 


006670R 


PASS 


012346R 


STS 


00OCO4 


PCBB -- 


000072 


STSNO 


006456R 


PCS 


000003 


SUBTST 


006400R 


PROCEED 


000001 


SWR 


006426R 


PSL 


000017 


SHRl 


006430R 


POBR ^ 


G00044 


TBDAT : 


O0OD20 


POLR -- 


000074 


TBERO '- 


000022 


PIBR '- 


000045 


tber: '- 


000023 
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TBLEND: 
TBLHEA- 
TBLSIZ= 
TBH 

TEMP = 
TEMPO • 
TEMPI z 
TEMP2 = 
TEMP3 r 
TEMP4 = 
TEMPS = 
TEMP6 = 
TEMP7 r 
TEMPO ^ 
TEMP9 - 
TERMIN 
TESTNO 
TESTSTr 
TINIT = 
TMERTRz 
TOIDHI^ 
TOIDLO^ 
TPC 

TPCINIr 
TRAP 
TRAPVE= 

. ABS 



007164R 

007060R 

000042 

000015 

016370R 

000060 

000061 

000062 

0C0063 

000064 

000065 

000066 

000067 

000070 

000071 

006562R 

006376R 

000002 

000000 

000017 

173022 

173020 

006432R 

000034 

010314R 

000034 



TREAD = 

TRS 

TSTMFG: 

TSTPTR 

TSTSPA3 

TWOSPC 

TWRITE-- 

TXRDY = 

TXVEC 3 

TYPADR 

TYPDAT 

TYPVER 

TYPl - 

TYP2 : 

UBA 

UPC 12 = 

use 

USCADR= 

USCBR<= 

USCDAT= 

USCSTK= 

USP 

VBBUFF 

VBCLK - 

VBCTRL= 



000002 

000027 

000024 

006576R 

020000 

006724R 

OOOOOl 

173016 

000300 

006444R 

007526R 

010526R 

000012 

000013 

000053 

001000 

OOOOOl 

000042 

000041 

000043 

000040 

000053 

007164R 

OOOOOl 

173036 



VBLOAD= 

VBUS = 

VECT = 

U z 

HCS 

HCSADR 

HCSCNT 

HCSSIZ 

HCS2K = 

WRITSC= 

X = 

XX 

Y = 

Z 

ZERO 

SBLKMI 

SCHKFL 

SCHKPN 

SCLOCK 

SCMPCA 

$CMPPC 

$CPCAM 

$CRLF 

$ENDAD= 

$ENDHC 



000002 

0OU052 

000015 

006370R 

000002 

006452R 

006454R 

006712R 

000042 

000005 

002010 

000176 

007344R 

OOOOOl 

006714R 

011464R 

006704R 

011656R 

012010R 

012042R 

012434R 

012036R 

006472R 

020400 

012534R 



000000 
020402 
Errors detected 



000 

001 





(RW,I.GBL.ABS.OVR) 
(RW.I.LCL.REL.CON) 



Assemb i er statistics 



Work file reads 
Work file writes 
Size of work file 
Size of core poo 1 
Oper ating system 



146 

142 

30477 Words ( 120 Pagesi 

19978 Words ( 76 Pages) 

RSX-llM/PLUS (Under VAX/VMS) 



: lapsed time: 00 :02 :37 .23 

tSKACz-SP^ESKAB^^AC .MLB/ri 



,tNABLELST.MAC,tSK.AC .MAC 



lENDLO 

SENDOV 

SERFLG 

SERRLO 

SERRPC 

$FER : 

$FETCH 

$FLAG 

SFLTON 

SFLTZR 

$FNF 

$FNR 

$FOR : 

$IFERR 

$INIT 

SITEMB 

SKMXGE 

$LDCA 

SLDIDR 

SLOOP 

SLPADR 

SLPERR 

SMASK 

SMOVE 

SNEWTS 



012604R 

012702R 

006406R 

013030R 

006414R 

OOOOOl 

013040R 

006606R 

013174R 

013246R 

000002 

000003 

000004 

C13324R 

013552R 

006602R 

013604R 

013654R 

013733R 

014046R 

006410R 

C06412R 

014370R 

014420R 

014506R 



SNOOP 

SPASS 

SPSU 

SREADI 

SREADV 

SREPOR 

SRESET 

SSCTNO 

SSECTO= 

SSETPS 

SSETVE 

SSKIP 

SSKIPE 

SSN 

SSPAGE 

SSUBTE 

STBSY = 

STCTC = 

STEMP1= 

STER = 

STMPO 

STN 

STSTNM 

STSTVB 

STYPSI 



015016R 

006370R 

006544R 

013020R 

010244R 

015032R 

C15160R 

006402R 

000000 

015164R 

015174R 

015220R 

015236R 

OOOOOl 

015262R 

015332R 

000005 

000006 

007526R 

000007 

006600R 

OOOOOl 

0O6372R 

015414R 

015716R 



B 1 
C 1 



D 
E 
F 
G 



H 1 
I 1 



J 
K 
L 



N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 

G 

H 



M 1 



DIAG 
DUG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
LIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
ni AG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 
DIAG 



NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTIC 

NOSTIC 

NOST I 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOST I 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOSTI 

NOST I 

NOST : 

NOSTI 

NOST I 

NOSTI 

NOST I 



HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 
HAR 



MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 



Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 
Y05 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



ro5 



05 
05 
05 
05 
05 
05 
05 
05 
05 



.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 
.02 



S 
S 
S 
S 
S 
S 

s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 

f 

,i 

s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 



